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A MUTUAL VISIBILITY COMPUTER PROGRAM FOR 
COMMUNICATION SATELLITES 


INTRODUCTION 

As more and more ground stations are constructed around \the world to 
operate with communication satellites, the problems of scheduling the experi- 
ments become more complex. Many factors, e.g., is the attitude of the satel- 
lite correct, must be considered simultaneously in order for decisions to be made. 
Although many pieces of data were on hand during tests with Telstar I and Relay 
I, the information was presented 'randomly in three or more books, and much 
human effort was needed to extract and analyze the pertinent data. The obvious 
solution was to compute only the necessary data and to present them as con- 
cisely as possible. This report will describe such a program which has been 
developed by members of the Theory and [Analysis Office. 


PROGRAM CRITERIA 

The following criteria were used to design the program: 

(a) Data should be printed only for passes during which the spacecraft was 
visible to a "control” station. Because the Relay spacecraft can be operated by 
only two or three stations, it must be visible to one of those stations when experi- 
ments are made. 

(b) Data should be presented in two books, one graphs of mutual visibility 
and the other the actual numerical data. 


MUTUAL VISIBILITY 

Bar graphs appeared to be the most legible form for presentation of time 
intervals of mutual visibility. In addition, indications of elevation angles from 
0° to 5°, from 5° to 10°, and from 10° to 90°; of ranges higher or lower than a 
prescribed input value; of spacecraft look angle; and of orbit number were 
necessary. 
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NUMERICAL DATA 


This volume consists of all the numerical data used to produce the mutual 
visibility graphs. These data are spacecraft longitude, latitude, height and sunr 
light indicator; and for each station the spacecraft look angle (the angle between 
the spin axis and the slant range), azimuth, elevation, and slant range. The last 
set of data in this book is a complete time history of entry into and exit from the 
earth’s shadow. 


THEORY 

The program can be described simply as an orbit generator with associated 
subroutines necessary to perform needed calculations. Experience at Goddard 
has indicated that the theory developed by Brouwer (1959) is adaptable for the 
purposes of this program. The American Institute of Physics has granted per- 
mission to the authors to reproduce certain pages of Brouwer (1959) herein. 
Appendix I consists of pages 393 to 396. To aid the reader the pertinent equations 
have been rewritten and the equivalent Fortran n variable names for some of 
the terms have been superimposed on the equations. These equations are re- 
produced in Appendix II. 

A brief explanation of how the orbit generator has been programmed will 
help the reader. 

Secular terms . These equations were rewritten as: 


r = ^ + s 1 t + s 1>2 1 2 

g" = g" + s 2 1 

b — h 0 + S 3 t 

where S 1? S 2 , S 3 are constant for any given set of a", e", I", and earth constants 
and S 12 is the anomalistic acceleration computed by the GSFC differential cor- 
rection programs. If S 12 is unavailable, the added term can be dropped by 
inputting it as zero. 
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Long Period terms. These equations were rewritten as: 


where L., 
constants. 


V - V + L x sin 2g" + L 2 cos g" + L 3 cos 3g" 

g' = g" +L 4 sin 2g" +L S cos g" + L g cos 3g" 

h # = h M + L ? sin 2g" + L g cos g" + L g cos 3g" 

S l e = L io cos 2g< + L u sin gW + L i2 sin 3g " 

V = L 13 V 

1 < i < 13 are constant for any given set of aJJ , ej , Ij , and earth 


EARTH'S GRAVITATIONAL POTENTIAL 

The force function used is that of Brouwer, page 393, where k 2> k 3 , k 4 , k g 
represent the zonal harmonics. However, Viriti's notation of J n should be adopted. 
Either set of harmonics can be used by means of the following equations: 


k 2 = +^J 2 R l 

k 3 = - J 3 V 
k 4 =-|j4 R e 4 

k 5 =-J S R . 5 


The program has been designed either to use constants stored in memory or to 
read new constants along with other input data. 
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COMPUTER PROGRAM 


The computer program, written in Fortran II for the IBM 7094, was designed 
typically is a main program with subroutines called when needed. The orbit 
generator has been designed to compute in one subroutine all quantities which 
are functions of mean elements and earth constants. Another subroutine com- 
putes only those quantities which are either explicit or implicit functions of 
time. Terms that occur at least twice in the equations are assigned a variable 
name and actually are computed only once. 

Main Program . The requirement that data be printed only for passes when 
the spacecraft is Visible at a control station implies, unfortunately, that data 
must be computed and stored before a decision can be made to discard the data. 
The authors recognize that "shortcuts" were available to avoid computing data 
which were to be thrown away. However, the requirement for an accurate eclipse 
history did not allow such methods to be used. 

Main Program One . This program fulfills the requirements described pre- 
viously herein. Its characteristics are (a) an IBM 7094 with a 65K memory is 
required and <b) the complete sunlight history is computed. Computer running 
time could be reduced if (a) and (b) can be eliminated. 

Main Program Two . This program is similar to Main Program One except 
that the control station requirements, the complete sunlight history, and the 
numerical data on bar graphs were deleted. A computer with at least a 2 OK 
memory (dependent on memory needed for library subroutines) is required. 

Subroutines . The subroutines for each of the main programs are identical. 

Operation Instructions. Instructions for operating the two programs are 
given in Appendix HI. 

Input deck instructions. Instructions for punching the input deck for each 
program are given in Appendix HI. 

Flow Charts. The flowchart for Main Program Two is contained in Appendix 
IV. 


Source Decks . Source decks for Main Program One, Main Program Two, 
and Subroutines are reproduced in Appendices V, VI, and VH respectively. 

Sample Problems . Inputs to and outputs of each program are given in 
Appendix VUI. The outputs have been abbreviated. 
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Results 


Main Program. One has been used extensively and successfully for planning 
experiments with Relay I and n and Echo I and n. Main program Two, which is 
less sophisticated and is easy to change, has been used for a variety of special 
' studies, e.g., travel time of light from station to spacecraft back to station; angles 
between slant ranges from a single station to two different spacecraft, etc. 

REFERENCE 

1. ’’Solution of the Problem of Artificial Satellite Theory without Drag, 1 ’ D. 
Brouwer, Astronomical Journal 64, ,9, Nov. 1959, pp. 393-396. 
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APPENDIX I 


Reproduction of Pages 393 to 396 of Brouwer (1959) 

Formulas for Computation. For convenience of computation the perturbations 
in the Keplerian elements a, e, I are given instead of those in L, G, H. 

The adopted force function is 

U = + — 3 sin 3 0) +^(i - 10 sin’ 0 + 25 sin 1 0) 

+ ^(-§si»0 + f sin 3 tf) + ^ (f sin 0 - ^ sin 3 0 + f sin 3 0), 

in which k 2 is a small quantity, and k 4 , A 3 0 , A $ Q are assumed to be of order 

4 

The secular motions have been computed to 0(k|), the coefficients of 
periodic terms to 0(k 2 ). 

Basic constants: 

a" = semi -major axis constant 

e" = eccentricity constant 

I" = inclination constant 

n Q = fi 1/2 a"- = 17.04337 (a"/R)~ 3/2 rev./day 

R- equatorial radius 
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Abbreviations: 


tj = ( i — e" 2 )* Q — cos I " 


kz ki 

72=^77i 7<=^ 

72 / =72’T 4 yi'~yiV~ 8 


-43 0 -4s.o 

7s = ^77T 7*- a ». 

73 / = 73»?“ 6 76' = 76* r 10 


It is customary to use for the second harmonic the coefficient J ; Jeffreys 
(1954) used for the fourth harmonic the coefficient D . The relations between J , 
D and y 2 , y 4 are 



Strictly speaking, e" + Sje, 6* = cos(I" + S X I ')> if = [I - ( e" + Sje ) 2 ] 1/2 
should be used in the computation of the periodic terms, but since the short - 
period terms are obtained to 0(k 2 ), it is of no consequence if contributions of 
0(k 2 ) are omitted in expressions that have y 2 as a factor. Similarly, g" 
might be used in computing f ' , r' ; but since V, y ’ are available, their use does 
not complicate the calculation. 

The formulas are applicable for any eccentricity e < I and any inclination 
with the exception of inclinations near the critical inclination, for which 1-5 
cos 2 I appears as a small divisor. 

The appearance of e" as a divisor in the short -period terms in e is apparent 
only. The expressions that are multiplied by e"" 1 contain e" as a factor, either 
implicitly or explicitly. 

In the short-period terms in & and g a divisor e" occurs also, but for the 
calculation of the position only g + 4 + equation of the center is needed. In 
g +^the divisor e" is not present. 
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Singularities in some of the elements also occur for very small inclinations; 
again, no singularity is present in the coordinates. In such cases it may be 
found convenient to modify the\ formulas and obtain expressions for the perturba- 
tions in coordinates. 


Secular terms: 


V = ’’mean” mean anomaly 

= Hot 1 1 + “ y 2 'v (“ I + 30 2 ) + ~ yz 2 vL 15 + Ifr? 4- 2577 s + (30 - 967? - 901 f)6* 

+ (105 + 14417 + 25i? 2 )0 4 ] + y<ve m l3 ~ 3O0 2 + 350*1! j + U r 


g" - mean argument of perigee 

= not ||72 / (~ i + 50 2 ) + ~T2 ,2 H“ 35 + 24?; + 2577 s + (90 - 19277 - 126772)0* 

+ (385 + 360, + 45W] + ^ 7 .'[ 2 I - 91 2 + (- 270 + I26„ ! )0 2 + (385 - I 89 U ! ) 8 '] J + g " 

h" = mean longitude^of ascending node 

= «o* | ~ 37 a '0 + | 72 , 2 C(~ 5 + 1277 + 977 -)e + (- 35 ~ 3617 - S’? 2 )'? 3 ] 

+ - 74' (5 - 3^)0 (3 “ 70 2 ) J + 
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Long-period terms: 


5\6 — 


I JTiVVCl - lie 2 - 4oe<(l - 59 s ) -1 ] - Cl - 3« s - 89*(i - 59 2 ) -1 ]} cos 2 g" 

[ O *72 ^ 

+ { - if sin I" + -^n sin J" (4 + 3*" ? )D - 9® 2 - 34«*<i - 5« ! )-'3 j sin g" 

[ 4 Tz 04 7 s * 


- ^^7 e"V sin J" £1 - 5^ - l60 4 (i - S^)" 1 ] s»n 3?" 


6 : 1 = - 


<?%e 
u a tan J" 


V - I" + 


+ 


|i 72 ¥D - iie s - 4 oe*(t .— se 2 )-] - - 3« 2 - se*(i - 50 2 )" 1 ]} sinze" 

_ 1 2L £ si „ j" _ J- 21 £ sin j" ( 4 + 9S '«)[I _ 9 e* - 24 e*d - 59 1 )-’] I cos g" 

4 72 e 64 72 e > 


, 35 y* 

^384 yi 


■ff sin I" [1 - 5^ - I6ff*(i ” 5^ 2 )“ l ] cos 3g" 




£ " + | - -L j2 >£ + (2 + e ’’*) - 11(2 + 3e"*)0* - 40(2 + 5e' /2 )5 4 (i - 5^)- 
- 4 ooe" !? 0 6 (l - 5^)~ 2 ] + ~^7[2 4- e m - 3(2 + - 8(2 + $e" 2 )6*{l ~ 5^)“‘ 


- 8oe" 2 $ 6 (* ~ S^ 2 )" 2 ]} si«2g" + { 4^(~ 


sin V* 


e”B 3 
sin V 


) 


5_y£ 

64 Ji 


■K 


T sin V* 


4 Vi (4 + $ e n *) + e ” sin /" (26 + 9 e" 2 )] [1 “ 9# 1 " 24^ (s - 5 ^)“ l ] 
sini / J 


- — ~ e"0 2 sin I" (4 + 3«" 2 )[3 + i 6 S 2 (i ~ 50 2 )" 1 + 40<? 4 (* “ cos f 

32 72 


+ \-^ki[ e " sin r (3 + 20 ~ d - 598 _ l6<,,( ‘ _ se5) ‘ ,] 

+ 31 1L e m $ > sin /" [ 3 4- 320K1 - 5**)"* + 80^ (t - 5^)“ 2 ] cos 3g" 
576 72 t 
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h' = h" + j - !t 2 V'* 0 [ii + 8 o 9 2 (i - 50 2 )-‘ + 2009 * ( i - 59 2 ) -2 ] 

+ ^- 2i 7 «'' 5 9 [ 3 + i 69 ! (l - 5»V + 4°0*(I - 5« ! ) _s ] [sin 2g" 

12 72 J 

+ HSi^F + ^fF (4 + ^ - 5«-‘] 


+ 33 7? e '' 9 sin l " (4 + 3e " 2)[3 + 1692(1 - 592 '”' + 4 ° 9<(l - 592)_2] I cos J " 


TS -v^ C ,/J 0 

_ _ 21 ft - 5^2 - i60 4 (i - 50 2 )- 

1152 7/ sin /" L J VO/ 


- — c"V sin 1" [5 + 3 20 2 (i - 59 =)-' + 8 o 9 *(i - 5 0 2 )- 2 ] | cos 3g ‘ 
57 ° 70 ' 1 


Short-period terms included : 

a = a" 1 i 4 72 [(- 1 4 3 P) ( - tf -3 ) 4 30 - 0 2 ) 77 «w (2/ + 2/)] J 

C = p" + 5 iC 4 |7J £(“ I + 3 ^ 2 ) (77 ^ *T 3 ) 4 3(1 - P) (7; - 7 ?" 4 ) cos (2g' 4 - 2/0 j 

-7/(1 - 0-)Ly" cos [2g' 4 /') 4 e" cos (: 2g ' + 3/)] j 

J = J" 4 bil 4 57 2 '0(i — cos (2 g' 4 2/0 + 3c" COS (2fi' T f) 4 c" COS (2g' -I- 3 / 0 ] 

l - V ~ -jT? 7 a' | — C I 4 30 2 ) ( 77 V~ 4 7 4 sill /' 

4 3 (i -^)[(- 7. t ~ 7 4 1) sin (24'' 4 /') 4 ^, 2 - 4 4 4 Q sin (24'' 4 3/')]} 

11" [ / a"- . a” \ . ,, 

K = £ 4 72 J 2 t- i 4 3®-) y yr v 4 7- 4 I j sill / 

4 3(1 - 8-) 7“ r - 7 + ! ) sin (2g' + /') 4- ^7-, 4 4 7 4 7) sm (24 4 - 3/ 1 ] | 

4 hi (6(“ 1 4 50 -U/' - /' 4 it" sin /') 

4 (3 — 5^“)[3 s»n (24 4 - 2/) 4 - 3<’" sin (2/ 4 /') 4 - c" sin (24' 4 " 3T)]} 
A = //' - $7 2 '0[6(/' — I’ 4 p" sin f) — 3 sin (2#' 4 2/) 

- 3c" sin (24 + /') - p" sin (2g' 4 3/)]. 

/', r' are to be computed from 


E' - 

tan 7/' = ^ ’“ 7 ?) tan \E* 

a" 1 4 cos f 
r*‘ ~ 1 — c"- 


e" sin E' = /' 

r ,, sin f'— (1 — c" 2 )* sin E’ 
a” J 

or , 

■ „ cos = cos E' ~-e" 
a J 


r r, r-/ 

-77 = 1 — e cos E 
a 
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For the calculation of the coordinates at any time the complete values 
of e and £ should be used for the solution of Kepler’s equation, 

E — e sin E — l 

and subsequently r and f , which may then be used in the formulas: 

x = r[cos (g + f) cos h — sin (g + f) sin h cos 7] 
y = r[cos (g -h f) sin h + sin (g + f) cos h cos /[} 
z = r sin (g 4* /) sin I 

A convenient alternative form is: 

x = A x (cos E — e) + B x sin E 
y — A y (cos R — r) + sin E 
z = A z (cos E — c) + B z sin E 

.•U = a [cos g cos h — sin g sin h cos /] 

B x — — a(i — e 2 ) 1 [sin g cos h 

-J- cos g sin h cos /*] 

.-ly = a [sin g cos h cos l 4- cos g sin h~\ 

By — a(l — c 2 )* [cos g cos h cos 1 -- sin g sin //] 

A , = a sin g sin I 

B z = a( i — e 2 y cos g sin I 
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Noted added in proof. The lack of uniformity in notation of the coefficients 
of the second and fourth harmonics of the earth’s potential in papers dealing 
with the motion of artificial satellites calls for a comment on this subject. 

The table below contains a listing of some of the designations used and their 
relations to the coefficients B p in the expression of the force function of a body 
with rotational symmetry, 


F 


A* fi _i_ T BpPp ^ Sln A 
r L h 


in which B p are Legendre polynomials and fj, =GM. The expression is an adapta- 
tion of the Laplacian expression given by Tisserand. 

In addition to the equivalents of B 2 and B 4 the table gives those of the ratio 
B 4 /B2, which is unity for the special case treated by Vinti (1959) , in which the 
terms with small divisors near the critical inclination vanish. No effort has 
been made to make the tabulation complete. 


Laplace 

Bi 

1 U 

Bi/ti? 

Tisserand, ifer. Cel II, 
320, 1890 

H. Struve 

-2* 

3 

u 

3 

\i/p 

Sup pi. I, (Jbs Pulkovo 1888 

W. de Sitter 

- JR- 
3 

KRi 

15 

&K/r- 

B. A. N. 2, 97, 1924 

D. Brouwer 

- 2 k. 

3 

2 ki/k? 

J. 5*. 22 3» j 946 

H. Jeffreys 

- - JR* 
3 

— PR* 
35 

— DJJ * 
35 

.\f. -V. 14. 433. 1954 

Y. Kozai 

-2.1, 

3 

35 

18 1 '|S 

35-'*" 1 


P. Herget and P. Musen 

- 2 k i 

8 k* 

2 k</kf . 

-I /. 63, 430, 1958 

J. O’Keefe et al. 

+ .!*./* 

-r A* Jn 

ft. 1 i. „l A « J 

.1 J. 64, 235, 1959 

B. Garfinkel 

- 2 k 

k’ 


This issue 

J. Vinti 

- JiR 2 

- JtR * 

Ji/Ji* 

J of Rcb .Y at. Burenu 

of Standards 62B, 105, 1959 


In the table R represents the earth’s equatorial radius. Ignoring the presence 
of R 2 and differences in sign, essentially three different coefficients for the second 
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harmonic have been used in recent papers. For the coefficients of the fourth 
harmonic six different choices are listed. X now regret that I introduced k 2 , 
k 4 in my paper in 1946. The principal reason was that they give a particularly 
simple form for the expression of the potential in the equatorial plane. If I 
could have foreseen the increase in interest in the subject and the confusion to 
which I was contributing, I would have chosen the coefficients B or the alterna- 
tive form 


P, (sin 0)], 


which was used by Vinti (1959). I intend to revert to this form and recommend 
this to other authors. 
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APPENDIX n 
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Short Period Term for a 


SPT 


From Brouwer, SPT is 
1 +r 2 


(- 1 + 3# 2 ) (f — - 77~ 3 \ +‘3(1 - 6 2 ) 1 — cos (2g / + 2f') 

l ' , 3 


Rewrite 


1+7 (- 1 + 3 6 2 ) + 1_ 3(1 -0 2 ) cos (2g' + 2f') 

f v v /\r' 3 / r' 3 \ v /v t 

I f f f 

C(l) D(6) X(ll) B(8) X'(1T) D(19) X(21) 


X(22) 

= 1. + C(l) * (X(22) + X(ll) * X(23)) 


X(23) 


Short Period Term for e ' 


2L_ Jy 

2e" V 2 


(- 1 + 3(9*) 


t t 

G(12) C(l) 


J 4 \~3~ V ) 3(1 -e 2 ) cos (2g< +2f) 

' | ' * ' 
iX(ll) B(9) X(23) 


- y’ 2 (1 - # 2 ) , [3e" cos (2g' + f') + e" cos (2g' + 3 f ' 


1 I 


X(22) 

SPT e = G(12) * (C(l) * (X(22) + X(23) * (X(ll) - B(9») - D(23) * X(24) 


D(23) 


X(24) 


Short Period Term for Inclination 

±y 2 e(l -e 2 ) 1/2 [3 cos (2g* +2f'| + e’ (3 cos (2g' + f') + cos (2 g * +3f')}] 

V \ > V ; 

V V t V 

0(22) X(21) X(24) 

SPT. = D(22) * (3. * X(21) + X(24))| 


17 



Short Period Term for I 


4 77T/ {*(- 1 +3^(7717- i| Sin/ + 3(1 - 6 2 ) [(- 777 r - y + 1) sill (2^ + /') + (7^ + y + j) sin (2g' + 3/)]} 


B(2)*G(13) D(20) 


X(25) 


t 

X(12) D(19) 


X(25) 


X(19) 


;x(25) 


X(20) 


X(26) 


SPT m =B(2)*X(26) 


Short Period Term for g 

+ ^e" y * { 2 (~ 1 + ^ 7,2 + 7" sin f 

i 

+ 3(1 - ^ 2 ) [(- 7 T t - 77 + 1) sill (?g' + /) + (777 V 2 + y + sin (2 g' -f 3 / 0 J J 


X(26) 


f £72' {6(- I + 5 0 2 )(/' — /' + e" sin /) + (3 - 5^)C3 sin. (2 g' pf- 2/) + 3e" sin (2g' + /) + e” sin (2g' + 3/0]} 
C(9) D(7) X(27)/6 D(21) X(17) X(19) X(20) 


X(28) 


SPT = X(26) + C(9) * (D(7) * X(27) + D(21) * X(28)) 
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Short Period Terms for h 


— /' + e” sin f) — 3 sin (2g' + 2/) 

- 3c'" sin (2#' + /') - e" sin ( 2g ' 4- 3/)]. 

Y 1 

C(10> X(27) X(28) 

C(10) * (X(27) - X(28)) 



(27) 


Secular terms : 
l" = “mean” mean anomaly 

= w 0 1 1 + ~ yiy(— 1 + 3# 2 ) + “ 72 ,2 ij[— 15 + 161) + 25^ 4 - (30 — 9617 — 9Oij 2 )0 2 

+ (105 + 144^7 + 25^)^] 4- “|t4V ,2 C3 - 3O0 2 + 35^]J^+ l " 

v. j 

v 

S(l) 

g" = mean argument of perigee 

— «0 | f 72 7 (— I + 5 02 ) + “T 72 / 2 C — 35 + 241? 4 - 2577 s 4- (90 — 1921) — I26 tj 2 )0 2 
l 2 32 

+ (38s + 360, + 45 ’) ! )«‘] + ^t/[ 2I - 9» 2 + (- 270 + I26„ ! )0 2 + (385 - I89>i ! )e 1 ]»+ go" 

V 'j 

V 

S(2) 

k” = mean longitude of ascending node 

“ »o | — 37z'0 4- 172 /2 [(- 5 4- 1277 4- 97 f )6 4- (— 35 - 3 6l f “ 5 1 ? 2 ) 03 ] 

+ “74'(5 - 3 v 2 ) 9 (z ~ 7®*) J^4- *0" 

V } 

v 

S(3) 


Long-period terms: 


EL(10) 

„ A 

ft f »■> 

tie ~ j Q 72VVC 1 — 1102 — 4O0 4 (i — 50 2 )" 1 ] — — “5'Vf i — 30 2 — 80 4 (i — 50 2 )" 1 ]! cos2g" 

l o 12 72 j 

+ { 4 7 ? 1)2 sln l " + 6^i 71 sin J// (4 + ” 9 # 2 “ 24^(1 - 5 ^ 2 )” 1 ]} sing" 

V, . J 

V 

EL(ll) 


35 

384 72 


EL (12) 


V 


e" 8, e 

i — = EL(13) * 3 ,e 

7j 2 tan I" 



Long Period Terms 


V - r + 

t 

| AI1(6) C(5) 

BC3) 

Al( 6) 


{ l TsVCi - lid 1 - - 5^)"'] - ^ - 8**(l - a«| sin 2 Je" + { ” l^r ^i«n J" - ^ sin I" (4 + 9 OD - 9** “ *4&0 ~ S^ _1 ]J ™ iP C* ~ 5* 1 - T^{l - 5f) _1 3 

“I 


B(3> D(If» 


X{3) C(71 


t 

F<5) 


t 

Xf4) 


D{U> 


EL(2) 


CU5 31 

t 

X(S> 


"eLC3T 


B(3) * »{I1) 

' v • 

EL(1) 

l' - r + ELfl) * X(3) + EL(2) * X(4) +■ EL(3) * X(5) 


_l ! 

+ 1-^| 

* sin 1" 

e”P \ 

1 I 

4n ' 

\ e" 

sin T* ) 


S' = t" +1 j - ^7l'[+ (2 + *">)- 11 (a + 3«">)P - 40(2 + 35"*)(X(I - 

I - 4 ooc">S<(i - sfO-’] + “ ^ - 3(2 + 3 f"=)P - e(a + S*"Wi - SP )- 1 1 + I X [(^7^ - ^77) (4 + 3 e">) + e" sin /" (26 + 9 e">)] Cl - 94 s - - S# 1 )-'] 1 

ir 1 1 - ■ ■' 1 1 

| - 8oe" 1 »'(i - 5« a )-]h» n ‘ 

1 h J 

EL(4) X(3) 


1 “ ^e"«*sm J" (4 + 30(3 + iW(l - S^~ l + 4°*'(r - ^)- , ]j|7 os j" 

I Li j 


EL(5) 


X(4) 


g' = g* + EL(4) * X(3) + EL(S) * X(4) + EL(6) * X(S) 

t I 

Al(5) A 11(5) 


+j{- $£§[?***" (3H- *"> S\ l' - * - l6S,(l - 


*' = *" ■+ { - 5 vf<f'*Ln + ao 3 *(i - sF)-‘ + aoo»«(i - 5^] + { ^ ~ + —j (4 + 3s"‘)[i - & - » 43 *(« - s*)' 1 ] 

3 + - 50=)-' + 4 00*(l - S5*)n»]l «„ 2/' + ^ sin I" (4 + 3*" J )[3 + lW(> - 5» : )“' + 4^0 - 5^^l) eosg" 
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OPFRATING INSTRUCTIONS 


FOR 

MIISTAP PROGRAM 

0 

OPFRATING NOTES FOR VUSTAP PROGRAM. 

0 

PIJRPOSF — 

THE MUSTAP PROGRAM IS ONE DESIGNED TO COMPUTE MUTUAL VISIBILITY 
, L6CAL STATI0N PREDICTIONS, SPACECRAFT LOOK ANGLFS, AND WORLD MAPS 0F 

communication satellites. 

0 

INPUT — 

° INPUT T0 THE PROGRAM CONSISTS ©F CSNTR0L OPTIONS, TEST CRITERIA, 

EPOCH, ORBITAL ELEMENTS OR P0SITI0N AND VELOCITY VECTORS* START AND ST0P 
TIMES WITH PREDICTION INTERVAL, ATTITUDE DATA, AND STATION COORDINATES. 

0 

MPTHran— . 


THE PATH 'OF THE SATELLITE IS COMPUTED BY AN INTERNAL ORBIT 
GENERATOR. THE POSITION OF THE SPACECRAFT WITH RESPECT TO EACH STATION 
IS COMPUTED AND TESTED AGAINST THE SPECIFIED CRITERIA. OUTPUT STATEMENTS 
ARE ARRANGED TO PRESENT THE DATA IN THE MOST USEFUL MANNER TO THE PROJECT. 


OUTPUT DATA ARE WRITTEN ON TWO MAGNETIC TAPES — (II MUTUAL VISIBILITY 
12) WORLD MAP .PREDICTIONS, AND TIME THE SATELLITF IS IN SHADOW. THE MUTUAL 
VISIBILITY DATA ARE PRESENTED IN GRAPHICAL FORM. THE OTHER DATA ARF S/C 
LATITUDE, LONGITUDE, HEIGHT, AZIMUTH, ELEVATION, RANGE, AND SPACECRAFT 
LOOK ANGLE! THE ANGLE BETWEEN THE S/C SP.IN AXIS AND THE LINE TO THE STATION). 

FOR CHECKOUT PURPOSES A SENSE SWITCH CAN BE DOWN AND THE INPUT WILL BF 
WRITTEN ON-LINF. 

0 

PROGRAM INPUT DATA INSTRUCTIONS. 


ALL INPUT DATA ARE ON CARDS I READ ON-LINE) . 


CARD 1 — IDENTIFICATION CARD (FORMAT 2(6A6)I — ANY DESCRIPTIVE DATA 
N«TF 

THIS IDENTIFICATION IS OUTPUT ON 2 LINES -- 
LINE 1 -CONTENTS OF COLUMNS 1-36 
LINE 2 -CONTFNTS OF COLUMNS 37-72 


CARO 2— CONTROL CARD (FORMAT 8I3.F10.il 


•1-3 TYPE OF INPUT +01 = OSCULATING ORBITAL ELEMENTS 

+03 = INERTIAL R AND V VECTORS, CANONICAL UNITS 
+04 '= BROUWER MEAN ELEMENTS 

4-6 WORLD MAP +01 = COMPUTE WORLD MAP AND PRFD1CT10NS 

+00 = DO NOT COMPUTE WORLD MAP AND PREDICTIONS 
-01 = DO NOT COMPUTE WORLD MAP AND PRFDICTIONS 
7-9 LOOK ANGLE +01 ALWAYS 
10-12 EARTH CONST. -03 = USE I NTFRNAT I ©NAL CONSTANTS WITH 
HARMONICS FQUAL TO ZERO. 

-02 = USE GODDARD EARTH CONSTANTS WITH 
HARMON rCS EQUAL TO ZERO. 

-01 = USE SIRY PACKAGE CONSTANTS 
+00 « USE GODDARD EARTH CONSTANTS 
+01 = READ A NFW SFT OF EARTH CONSTANTS 
(INPUT ON CARDS 4-5) 

13-15 TRUNCATION -01 = USE INTERNAL VALUE 
+00 = USF INTFRNAL VALUF 

+01 = READ NEW TRUNCATION FACTOR — CARD 3 

(USFD AS CRITERIA TO 50LVE KFPLFR'S EQ. > 
16-18 BRRWR -01 = USE INTFRNAL VALUES 

TRUNCATION +00 = USE INTERNAL VALUES 

+01 = READ NEW TRUNCATION FACTORS FOR 
SUBROUTINE BBRWR — CARD 6 
19-21 BLANK — USED INTERNALLY 
22-24 POSITIVE N — N CONTROL STATIONS (THEY ARE THE FIRST N 
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STATIONS. ) 

N MUST BE LFSS THAN OR EOUAL TO THE NUMBER ©F STATIONS GIVEN 
ON CARD II. 

25-34 MAXIMUM RANGE FOR STATIONS IN NAUTICAL MILES. A T IS PRINTED 
ON THE MUTUAL VISIBILITY OUTPUT *WHFN THE RANGE IS LARGER 
THAN THIS VALUF. 

CARO 3 — NEW TRUNCAT ISN FACTOR I OMIT THIS CARD UNLESS COLUMNS 13-15 
OF CARD 2 ARF = +01 ) (FORMAT F8.2) 

COLUMN 

1-8 NFW TRUNCATION FACTOR 

CARD A — EARTH CONSTANTS (OMIT UNLESS COLUMNS 10-12 OF 
CARD 2 = +01 > (FORMAT R12.6«4E12.5> 

COLUMN 

1-12 NFW G« OF THF FARTH (KM. CUBFD/ SFC0NDS SQUARFO) 

13-24 J? > 

25-36 J3 ) HARMONICS OF THE GRAVITATIONAL POTENTIAL OF 
37-48 JA > THF FAPTH 
49-60 J5 ) 

CARD 5 — EARTH CONSTANTS CONTINUED ( ©MIT UNLESS COLUMNS 10-12 
OF CARD 2 = +01 ) (FORMAT 2F12.A) 

CPI UMN 

1-1? INVrRSE OF FLATTENING 
13-2A EQUATORIAL PADIUS OF THF EARTH IN K« 

CARO 6 — NEW TRUNCATION FACTORS FOR SUBROUTINE BBRWR ( OMIT UNLESS 
COLUMNS 16-18 OF CARD 2 ARE = +01 ) (FORMAT 6F12.8) 
TRUNCATION FACTORS USED IN COMPUTING BROUWER MEAN 
ELEMENTS FROM OSCULATING ELFMFNTS 

COLUMN 

1-12 ( SEMI-MAJOR AXIS - KM 

13-2A ( ECCFNTPIC1TY 

25- 36 FACTOR FOR ( INCLINATION - OEGRFES 

37-A8 ( R , A . ASC. N0DF - DEGRFES 

AO— 60 ( ARG. OF PFRIGFF - DFGREES 

61-72 t MFAN ANOMALY - DEGREES 

CARD 7 — FPPCH CARD (TIMF AT WHICH PARAMETERS APPLY) 

FORMAT 1X,A5»X,3I2,X*2I2»X»F4.2»39X.I5) 

COLUMN 
1 PLANK 

?-6 SATELLITE 10FNT I FICAT ION NUMBER 
8-9 YFA ff (ABBRFVIATF) 

10-11 MONTH 

1?-1 3 DAY 

15-16 HOUR ) 

17-18 MINUTE 1 UNIVFRSAL TIME 

?0-?A SFr<!>NDS ) 

63-67 ORBIT NUMBER AT THF START TIMF GJVFN ON CARD 10 

CARD 8 — PARAMETER CARD ( THFSE DATA MUST BE CHOSEN IN ACCORDANCE 
WITH THE INSTRUCTION ON CARD 2* COLUMNS 1-3) 

(FORMAT 6F12.8) " +XXXXXXXX+XX 

— DO NOT LEAVE THE SIGN OF THE EXPONENT BLANK — 

VECTORS (+03) REQUIRF THE FOLLOWING 
COL 

1-12 X VUL 

13-2 A Y VUL 

?5— 36 Z VUL 

37-48 X-DOT VUL/VUT 

49-60 Y-D0T VUL/VUT 

61-72 Z-DOT VUL/VUT 

FLFMENTS (+01 AND +04) REQUIRE THE FOLLOWING 
COL 

1-12 SEMI— MAJOR AXIS VUL * 

13-24 ECCENTRICITY 

25-36 INCLINATION RADIANS 

37— AP MFAN ANPMALY RADIANS 

49-60 ARGUMFNT OF PFRIGFF RADIANS 

61-72 R.A. OF ASCENDING NODF RADIANS 

©NF VUL = 6378,388 KIL0METFRS 
ONF VUL/VUT = 6378.388 KM/ 806.832 SEC 

RECTANGULAR COORDINATES ARE DFFINED TO BE IN AN INERTIAL* 
EQUATORIAL. GEOCENTRIC SYSTEM. X GOES THROUGH ARIES* Y IS 
IN EQUATORIAL PLANE* Z IS ALONG POLAR AXIS TO FORM A RIGHT 
HANDFD SYSTEM. 

CARO 9 — DRAG CARD I FORMAT AA6 > IX* E12.8 ) 

COL 

1-24 SAME AS EPOCH CARO 
?3 BLANK 

26- 37 ACCELERATION OF MEAN ANOMALY (N2 DRAG TERM AT GSFC) IN 

UNITS OF RADIANS / VUT SQUARFO. +XXXXXXXX+XX 

CARO 10 — PREDICTION AND MUTUAL VISIBILITY REQUEST CARD 

( FORMAT 2E 1X12) *1X*I4»2I3*F7.3*I3i1X*I2*1X* 14*213* 
F7.3*P11.3 1 


COL 

2-3 


MONTH 


27 


FORMAT 

12 



0 


5-6 

8-11 

15- 14 

16- 17 
19-24 
26-27 
29-30 
*2-35 
37-38 
40-41 
43-48 
49-59 


DAY ) 

YEAR to® NOT ABRFVIATF) > 
HOUR J 1 

M1NUTF ) UNIVERSAL Tl^F ) 

5 ECONO ) 1 

MONTH 
DAY 

YEAR tO® NOT APBRFVIATFJ 
HOUR J 

MINUTE 1UNIVERSAL TIME 

SECOND ) 

PREDICTION INTERVAL. SECOND 


START 

TIMF 


) FND 
) TIMF 


12 

14 

12 

12 

F6.3 

12 

12 

14 

12 

12 

F6.3 

F11.3 


CARD 11 — STATION CONTROL CARD (FORMAT 3 1 3.F10.0. 51X, 1 2 ) 
COL. 

1-3 NO. OF STATION COORDINATE CARDS TO BE LOADED 


N.B.. THE MAXIMUM NUMBER OF STATIONS THAT. CAN 
BF CONSIDERED IS NINETEEN (191. 

4-6 = BLANK OR +f>0 

7-9 = +XX LOWEST ELEVATION ANGLE FOR WHICH THE STATIONS 
CAN OBSERVE THF SPACECRAFT. 

10-19= BLANK (READ BUT NOT USFDJ 
20-70= BLANK (NOT READ! 

71-72= BLANK FOR NORMAL RUNS. OUTPUT FOR A PASS . 

IS GIVEN WHEN THERE IS MUTUAL VISIBILITY 3ETWEEN AT LEAST 

TWO STATIONS (ONE OF WHICH IS A CONTROL STATION) DURING THE PASS. 

+XX UNEQUAL TO ZERO -- KILLS MUTUAL VISIBILITY REQUIREMENT— 
GIVFS OUTPUT ANYTIME THF SPACECRAFT IS VISI8LF TO ANY 
OF THF STATIONS. 


(WHEN COLUMNS 1-3 OF THIS CARD ARE LESS THAN OR FQUAL 

TO ZERO.A NEW JOB IS STARTED BY READING CARD 1.1 

0 

CARD 12— ATTITUDE DATA CARD (FORMAT 4F6.1.I6) 

COL. 

1-12 RFAD BUT NOT USFO 

13-18 RIGHT ASCENSION OF S/C SPIN AXIS. DFGREES 

19-24 DECLINATION OF S/C SPIN AXIS. DEGREES 

25-30 +00 USE THE INPUT VALUES OF RT. ASCENSION AND DECLINATION 

TO DFFINF SPIN AXIS niRFCTI«N 
+XX (POSITIVE) ASSUKF SPIN AXIS IS ALONG THF INITIAL 
INERTIAL VELOCITY VECTOR 
O 

N.B.. RIGHT ASCENSION AND DECLINATION ARE 
THFSF ANGLES ARF ASSUMFD CONSTANT. 

CARD 13 -- STATION COORDINATE CARD (S) 

COL 

2-7 NAMF 

9-12 LONGITUDE. DFGRFES (+FAST) 

14-15 LONGITUDE. MINUTF* 

17-22 LONGITUDE. SECONDS 

24-26 LATITUOF. OEGRFFS (+NORTH) 

28-29 LATITUDE. MINUTFS 

31-36 LATITUDE. SFCONDS 

37-47 ALTITUDE, MFTFRS 


AT THE EPOCH GIVEN C 


12 

F6.3 

F11.2 


N.B., THERE MUST BE AS MANY STATION COORDINATE CARDS AS INDICATED 
BY CARD 11. 

THE STATION COORDINATE CARDS ARE FOLLOWED BY ANOTHER STATION 
CONTROL CARD OR BY A BLANK. IF THE NUMBER IN COLUMNS 1-3 OF 
THIS CARD IS NEGATIVE OR ZFRO. A NEW JOB IS STARTFD BY 
READING CARD 1. IF THE NUMBER IN COLUMNS 1-3 OF THIS CARD 
IS POSITIVE, NEW ATTITUDE DATA AND COORDINATE CARDS ARF 
READ. MUTUAL VISIBILITY AND PREDICTIONS ARE THEN COMPUTFD 
FOR THE NEW STATIONS AND ATTITUDE FOR TIMES GIVEN ON CARD 10. 

JOBS MAY BE STACKED BY PLACING A BLANK CARD AFTER THE 
LAST STATION COORDINATE CARD. CARD 1 OF THE NEW JOB THEN 
FOLLOWS THIS BLANK CARO. 

PLACE 3 BLANK CARDS AFTER THE LAST STATION COORDINATE 
CARD IN THE LAST INPUT DECK ©F THE JOB. THIS WILL RESULT 
IN THE CORRECT FINAL HALT — HPR 77777. 


0 


PUT SENSE SWITCH 3 DOWN TO TERMINATE RUN BEFORF THE END 
TIMF IS reached. 


INTERNATIONAL 

+3.986268730E+05 

0.0 

0.0 

n. o 

o. o 

297.0 ' 

6378.388 


EARTH CONSTANTS STORED .IN THE PROGRAM 


GODDARD 
+3.986032000E+05 
+1.0823E-03 
-2.3F-06 
-1.8F-06 
0,0 
298.3 
6378.165 


SIRY 

+3. 986268 800E+05 
+1.08219E-03 
-2.285E-06 
-2.123F-06 
-2.32F-07 
297.0 
6378.388 


0 
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RUNNING INSTRUCTIONS, 


0 

o 

0 


M^UNT PROGRAM S^SIFM TAPF ON A1 
VBUNT BLANK TAPFS eN A3,A5»A8 

No KFYS 09 OFNSF SWITCHFS. 

PUT INPUT CARDS IN READER AND READY READFR. 
CLFAR AND LOAD TAPF. 

FINAL STOP IS HPR 77777 


HALTS — 

HPR PQOlfl 
HPR 54321 

HPR 54333 
HPR 66666 
HPR 77774 
HPR 77775 
HPR 7T777 


MACIMNF is NOT in 65K 

MORE THAN 19 CONTROL STATIONS ARE BEING USED. THE 
PROGRAM CAN NOT RUN. 

THE NU V BFR eF CONTROL STATIONS IS LARGER THAN THE NUMBER 
OF STATIONS. 

MORE Than 19 STATIONS ARF BEING USED. THE PROGRAM 
CAN NOT RUN. 

SENSE SWITCH 2 IS DOWN FOR TIMING PURPOSES — END OF 
PREDICTIONS. HIT START TO CONTINUE. 

SENSF. SWITCH 2 IS DOWN FOR TIMING PURP0SE5 — BEGINNING 
OF PREDICTIONS. HIT START TO CONTINUE. 

FINAL t FND ®F JOB) 


PRINT OUTPUT TAPF A3 

( 1 JNARReW PAPER WHFN THERE ARF 15 eR LESS STATIONS 
I 2 ) WIDE PAPER WHEN THERF ARF 16 TO 19 STATIONS 
PRINT OUTPUT TAPF A8 ON NARROW PAPFR. 
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APPENDIX HI (PART B) 

PROGRAM OPERATING INSTRUCTIONS 
FOR MAIN PROGRAM TWO 
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OPERATING INSTRUCTIONS 
FOR 


MUSTAP PROGRAM 


OPERATING NOTES FOR MUSTAP PROGRAM 

o 

PURPOSF — 

0 

THE MUSTAP PROGRAM IS ONE DESIGNED TO COMPUTE MUTUAL VISIBILTY. 
LOCAL STATION PREDICTIONS. SPACECRAFT LOOK ANGLES. AND WORLD MAPS OF 
COMMUNICATION SATFLL ITES* 

0 

INPUT— 

0 

INPUT TO THE PROGRAM CONSISTS OF CONTROL OPTIONS. TEST CRITERIA. 
EPOCH. ORBITAL ELEMENTS OR POSITION AND VELOCITY VECTORS. START AND STOP 
TIMES WITH PREDICTION INTERVAL. ATTITUDE DATA. AND STATION COORDINATES. 

0 

MFTHPD — 

0 

THE PATH OF THE SATELLITE IS COMPUTED BY AN INTERNAL 0R8IT 
GENERATOR. THE POSITION OF THE SPACECRAFT WITH RESPECT TO EACH STATION 
IS COMPUTED AND TESTED AGAINST THE SPECIFIED CRITERIA. OUTPUT STATEMENTS 
ARE ARRANGED TO PRESENT THE DATA IN THE MOST USEFUL MANNER TO THE PROJECT. 


OUTPUT— 

0 

OUTPUT DATA ARE WRITTEN ON TWO MAGNETIC TAPES— ( 1 I MUTUAL VISIBILITY 
AND WORLD MAP (2) PREDICTIONS. FOR CHECKOUT PURPOSES A SENSE SWITCH CAN BE 
DOWN AND ALL DATA WILL BE WRITTEN ON-LINE. THE MUTUAL VISIBILITY DATA ARE 
PRESENTED IN GRAPHICAL FORM. THE OTHER DATA ARE S/C LATITUDE, LONGITUDE. 

AND HEIGHT FOR EACH TIME STFP, AZIMUTH, ELEVATION. RANGE. AND SPACECRAFT 
LOOK ANGLE I THE ANGLE* BETWEEN THE S/C SPIN AXIS AND THE LINE TO THE STATIONl 
FOR FACH STATION. 

0 

PROGRAM INPUT DATA INSTRUCTIONS. , 

0 

INPUT DATA — 

0 

ALL INPUT DATA ARF ON CARDS (RFAD ON-LINE), 

n 

CARD 1— IDENTIFICATION CARD [FORMAT 12A6)— ANY DESCRIPTIVE DATA 


0 

0 


CARD 2— CONTROL CARD [FORMAT 713) 


4-6 WORLD MAP 

7-9 LOOK ANGLE 

10-12 EARTH CONST. 


13-15 TRUNCATION 


' +01 = OSCULATING ORBITAL ELEMENTS 
+02 = INERTIAL R AND V VECTORS. KGS SYSTEM 

+03 = INERTIAL R AND V VECTORS. CANONICAL UNITS 

+04 = BROUWER MEAN ELEMENTS 
+01 * COMPUTE WORLD MAP 
+00 = DO NOT COMPUTF MAP 

-01 = D© NOT COMPUTE MAP 

+01 * COMPUTE MUTUAL VISIBILITY 

+00 = DO NOT COMPUTE MUTUAL VISIBILITY 
-01 = DO NOT COMPUTE MUTUAL VISIBILITY 
-03 = USE INTERNATIONAL CONSTANTS WITH 
HARMONICS EQUAL TO ZERO. 

-02 = USE GODDARD EARTH CONSTANTS WITH 
HARMONICS EQUAL TO ZERO. 

-01 = USE SlRY 'PACKAGE CONSTANTS 
+00 = USE GODDARD EARTH CONSTANTS 
+01 = READ A NEW SET OF EARTH CONSTANTS 
(INPUT ON CARDS 4-5) 

-01 = USE INTERNAL VALUE 

+00 = USE INTERNAL VALUE 

+01 = READ NEW TRUNCATION FACTOR — CARD 3 

[USED AS CRITERIA TO SOLVF KEPLER'S EQ. ) 
-01 = USE INTERNAL VALUES 

+00 = USE INTERNAL VALUES 

+01 = READ NEW TRUNCATION FACTORS FOR 
SUBROUTINE BBRWR — CARD 6 


CARO 3 — NEW TRUNCATION FACTOR ( OMIT THIS CARD UNLESS COLUMNS 13-15 
OF CARD 2 ARF » +01 ) [FORMAT E8.2) 
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COLUMN 

1-8 NFW TRUNCATION FACTOR 

CARR 4 — EARTH CONSTANTS (0MIT UNLESS COLUMNS 10-12 OF 
CARD 2 * +01 1 t FORMAT E12.6.4E12.5) 

COLUMN 

1-12 NEW GM OF THE EARTH (KM. CUBED/ SECONDS SQUARED) 
13-24 J2 ) 

25-36 J3 ) HARMONICS OF THE GRAVITATIONAL POTENTIAL OF 
37-48 J4 ) THE EARTH 
49-60 J5 ) 


CARD 5 — EARTH CONSTANTS CONTINUED ( OMIT UNLESS COLUMNS 10-12 
OF CARD 2 = +01 ) (FORMAT 2F12.4') 

COLUMN 

1-12 INVERSE OF FLATTENING 
13-24 EQUATORIAL RADIUS OF THE EARTH IN KM 


CARD 6 — NEW TRUNCATION FACTORS FOR SUBROUTINE BBRWR ( OMIT UNLESS 
COLUMNS 16-18 OF CARD 2 ARE = +01 J (FORMAT 6F12.8) 
TRUNCATION FACTORS U5ED IN COMPUTING BROUWER MEAN 
ELEMENTS FROM OSCULATING ELEMENTS 

COLUMN 

1-12 ( SFMI-majOR AXIS - KM 

13-24 ( ECCENTRICITY 

25-36 FACTOR FOR ( INCLINATION - DEGREES 

37-48 ( R.A. ASC. NODF - DEGREES 

49-60 ( ARG. OF PFRIGFF - DFGRFES 

61-72 ( MEAN ANOMALY - DEGREES 

CARD 7 — EPOCH CARD (TIME AT WHICH PARAMETERS APPLY I 

COL. FORMAT 

2-3 MONTH 12 

5-6 DAY - 12 

8-11 YEAR— (D© NOT ABBREVIATE) I* 

13-14 HOUR ) 12 

16-17 MINUTE ) UNIVERSAL TIMF 12 

19-24 SFCOND ) F5.3 

CARD 8 — PARAMETER CARD (THESE DATA MUST BE CHOSEN IN ACCORDANCE 

WITH THE INSTRUCTION ON CARD 2. COLUMNS 1-3) (FORMAT 6F12.6) 
ELEMENTS (+01 OR +04) REQUIRE THE FOLLOWING 
COL 

SEMI -MAJOR AXIS.KILOMETFRS 
ECCENTRICITY 


1-12 
13-24 
75-36 
37-48 
49-60 
61-72 
VFCTORS 
ceL 

1-12 X 
13-24 Y 
25-36 Z 
37-48 X-DOT 
49-60 Y-DOT 


INCLINATION ) THESE 

R.A. OF ASCENDING NODE ) VALUES 

ARGUMENT OF PERIGFF ) ARE IN 

MEAN ANOMALY ) DFGRFFS 

+02 OR +03) REQUIRE THE FOLLOWING 
+02 

KILOMETERS 
KILOMETERS 
KILOMETERS 
KM/SEC 
KM/SEC 


+03 

VUL 

VUL 

VUL 

VUL/VUT 

VUL/VUT 

VUL/VUT 


61-72 Z-DOT KM/SEC 

ONE VUL = 6378.388 KILOMETERS 
ONE VUL/VUT = 6378.388 KM/ 806.832 SEC 

RECTANGULAR COORDINATES ARE DEFINED TO BE IN AN INERTIAL* 
EQUATORIAL* GEOCENTRIC SYSTEM. X GOES THROUGH ARIES. Y IS 
IN EQUATORIAL PLANE* Z IS ALONG POLAR AXIS TO FORM A RIGHT 
HANDFD SYSTEM* 

CARD 9 — WORLD MAP REQUFST CARD. 

THIS CARD IS NEEDED ONLY WHEN THE NUMBER IN COLUMNS 4-6 
OF CARD 2 IS GREATER THAN ZERO. 

( FORMAT 2(1X12) >1X> I4»213*F7.3* 13*1X»I2* IX *14*213* 

F7.3 *F11 .3 ) 


COL 

7- 3 MONTH 

5—6 DAY 

8- n year id© not abreviate) 

13-14 HOUR ) 

16-17 MINUTE ) UNIVFRSAL TI^f 
1 9-24 SFCOND ) 

26-27 MONTH 

29-30 DAY ' 

32-35 YEAR (DO NOT ABBREVIATE) 
37-38 HOUR ) 

40-41 MINUTE )UNIVERSAL TI«E 

43-48 SECOND ) 

49-59 PREDICTION INTERVAL. SECOND 


FORMAT 

12 


IF CONTROL ON CARD 2 REQUESTS BOTH MAH ANO PREDICTIONS* 
TWO REQUFST CAROS ARF NECFSSARY. 


CARD 10 -- PREDICTION AND MUTUAL VISIBILITY REQUEST CARD 

THIS CARD IS NEEDED ONLY WHEN THE NUMBER IN COLUMNS 7-9 
OF CARD 2 IS GREATER THAN ZERO. 
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(SAME FORMAT AS CARD 9) 


CARD 11 — STATION CONTROL CARD (FORMAT 3 1 3. FI 0.0) 

COL. 

1-3 NO, OF STATION COORDINATE CARDS TO SE LOADED 

N.B.* THE MAXIMUM NUMBER OF STATIONS THAT CAN 
BE CONSIDERED IS TWELVE 112). 

A-6 = +01 COMPUTE PREDICTIONS. OUTPUT WILL BE ON TAPE A6. 

+00 DO NOT OUTPUT PREDICTIONS (ON TAPE A6) 

7-9 = MINIMUM ELEVATION ANGLE (DEGREES). NO OUTPUT IS 
GIVEN IF ELEVATION IS LESS THAN THIS VALUE. 

10-20 = MAXIMUM RANGE (KILOMETERS). NO OUTPUT IS GIVEN WHEN 
THE RANGE IS LARGER THAN THIS VALUE. 

(WHEN COLUMNS 1-3 OF THIS CARD ARE LESS THAN OR EQUAL 

TO ZER0»A NEW JOB IS STARTED BY READING CARD 1.) 

CARD 12 — ATTITUDE DATA CARD (FORMAT 4F6. 1 > 

COL. 

1-6 MAXIMUM SPACECRAFT LOOK ANGLE, DEGREES 
7-12 MINIMUM SPACECRAFT LOOK ANGLE, DEGREES 
13-18 RIGHT ASCENSION OF S/C SPIN AXIS, DEGREES 

19-24 DECLINATION OF S/C SPIN AXIS, DEGREES 

NO MUTUAL VISIBILITY OUTPUT IS GIVEN WHEN THE SPACECRAFT 
LOOK ANGLE IS OUTSIDE THE LIMITS OF THE MAXIMUM AND MINIMUM 
VALUES ON THIS CARD. 

N.B., MAXIMUM AND MINIMUM LOOK ANGLES, RIGHT ASCENSION, AND 
DECLINATION ARE CONSTANTS. 


0 


0 


P 


CARD 13 -- STATION COORDINATE CARD IS) 


9-12 LONGITUDE, DEGREES (+EAST) 

14-15 LONGITUDE, MINUTES 

17-22 LONGITtJDF, SECONDS 

24-26 LATITUDE, DFGREES t+NORTH) 

28-24 LATITUDE, MINUTES 

31-36 LATITUDE* SECONDS 

37-47- ALTITUDE, METERS 


12 

F6.3 

13 

12 

F6.3 

F11.2 


N.B., THERE MUST BE AS MANY STATION COORDINATE CARDS AS INDICATED 

the Station coordinate cards are followed by another station 
control card ©r by a blank, if the NUMBER in COLUMNS 1-3 OF 
THIS card is negative or zero, a NEW JOB IS started by 

RFADING CARD 1. IF THE NUMBER IN COLUMNS 1-3 OF THIS CARD 
IS POSITIVE, NEW ATTITUDE DATA AND COORDINATE CAROS ARF 
RFAD. MUTUAL VISIBILITY AND PREDICTIONS ARE THEN COMPUTED 
FOR the new STATIONS AND ATTITUDE FOR TIMES GIVEN ©N CARD 10. 


JOBS MAY BE STACKED BY PLACING A BLANK CARD AFTFR THE 
LAST STATION COORDINATE CARD. CARD 1 OF THE NEW JOB THEN 
FOLLOWS THIS BLANK CARD. 

PLACE 3 8LANK CARDS AFTER THE LAST STATION COORDINATE 
CARD IN THE LAST INPUT DECK ©F THF JOB. THIS WILL RESULT 
IN THE CORRECT FINAL HALT — HPR 77777. 


VALUF 

GM 

J2 

J3 

J4 

J5 


EARTH CONSTANTS STORED IN THE PROGRAM 


international 
+3 .986268 7 30 E+0 5 
0.0 
0.0 
0,0 
0.0 


GODDARD 
+3. 98 60 3200 OE +05 
+1.0823E-03 
-2.3E-06 
-1.8E-06 
0.0 


SIRY 

+3. 986268 800E+05 
+1.08219E-03 
-2.285E-06 
-2.123E-06 
-2.32E-07 


297.0 

6378,388 


298.3 

6378.165 


297,0 

6378.368 


0 

0 

0 


RUNNING INSTRUCTIONS. 

RUN UNDER MONITOR SYSTEM 

MOUNT BLANK TAPES ON A3 AND A61IF CONTROL 


©N CARD 6 CALLS FOR A6) 


NO KFYS PR SENSE SWITCHFS. 

PUT INPUT CARDS IN READER AND READY READER. 


FINAL STOP IS — HPR 77777 

PRINT OUTPUT TAPES A3 AND A6 ON NARROW PAPER WITH PROGRAM CONTROL 

SAMPLE PROGRAM INPUT DECK FOLLOWS. THE DECK WILL COMPUTE THE 
MUTUAL VISIBILITY OF 12 STATIONS FOR ABOUT ONE DAY. SOME OF THE 
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STATIONS WILL BE DUPLICATED. NOTE THAT BOTH MUTUAL VISIBILITY AND 
A WORLD MAP APE REQUESTED* 


RELAY TFST 12 STATIONS 
4-DA +01+01— 01 
01/14/1964 21 *7 

+11143*084 +0.23653052 +46.497757 +220.62688 +186.36665 +359.95097 

01/15/1964 20 no 00.000 01/16/1964 20 00 00.000 +120. 

01/15/1964 10 00 00.000 01/16/1964 10 00 00.000 +120. 

+12+01+00 

90.0 0.0 17S. 25* 

CSMNUT -75 00 0.000 +40 uO 0.000 0.0 

CSMANO -068 40 00.000 +44 54 00.000 38. 

CSMH I L -05 10 29.0 +50 02 58.0 350.0 

C©MGFR +10 00 00.000 +51 00 00.000 50. 

CSMTEL +13 36 5.000 +41 58 41.000 2168.6 

p?MpT(» -43 2? 7.000 -22 57 9.000 0.0 

CSMNUT -75 00 0.000 +40 00 0.000 0.0 

C PM A NO -068 40 00.000 +44 54 00.000 38. 

C0VH1L -05 10 29.0 +50 02 58.0 350.0 

CSMNUT -75 00 0.000 +40 00 0.000 0.0 

C0MAND -068 40 00.000 +44 54 00.000 38. 

C0MHIL -05 10 29.0 +50 02 58.0 350.0 
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APPENDIX IV 

FLOW CHART FOR MAIN PROGRAM TWO 
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APPENDIX V 

SOURCE DECK FOR MAIN PROGRAM ONE 
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* OATF 4/6/64 

* fin RFPAS< 

* PAU4F 

* c ards column 

* LISTS 

* LAPFL 

C MUSTAP PROGRAM VERSTON 2 THEORY AND ANALYSIS 0FFICE - GSFC 

C 

C GENFRALIZFD W0RLD MAP AND LOCAL STATION PREDICTIONS PROGRAM. • 

C 

C 1A. CONVERTS OSCULATING ORBITAL ELEMENTS TO INERTIAL POSITION 

C AND VELOCITY RECTANGULAR COORDINATES. 

C IB. CONVERTS INERTIAL POSITION AND VELOCITY RECTANGULAR 

C COORDINATES TO OSCULATING ©RBITAL ELEMENTS. 

C ?. CO^PUTFS WORLD MAP ON “FOUFST. 

C 3. COMPUTES LOCAL STATION PREDICTIONS (LOOK ANGLES) ON REQUEST. 

C 

C ALL INTERNAL CALCULATIONS ARE PERFORMED USING THE KILOMETER AS 

C THE UNIT OF LENGTH AND THE SECOND AS THE UNIT OF TIME. IF ANY 

C OF THE OPTIONAL INPUT PARAMETERS ARE DEFINED IN eTHER UNITS. 

C THEY ARE CONVERTED TO THESE UNITS AS SOON AS THEY ARE READ IN 

C AND ARE SUBSEQUENTLY USED IN THE CALCULATIONS IN KILOMETERS 

c AND SFCONnS. 

C THE ORBIT REQUIRED FOR THE WORLD MAP AND LOCAL STATION PREDICTIONS 

C IS GENFRATFD BY SUBROUTINES BRWR1 AND BRWR2 (DIRK BROUWER - 

C SOLUTION OF THE PROBLEM OF ARTIFICIAL SATELLITE THEORY WITHOUT 

r n»Afij 

r 

C REQUIRFD SUBROUTINES AND FUNCTIONS 

C ALLOT 

C ALLOT2 

C ARKTAN 

C ATANO 

C ATAN7 

C BACK 

C PRRWR 

r RRWR1 

C PRWR? 

C CH65K 

r njtJL 

C nMAR? 

C DOT2 

C FLRV 

C FLRVZ 

C FQN 

C GAFTZ 

C GDLATZ 

C 

r JULCAL 

C PARA 

C RDMSZ 

C RHMSZ 

C RVFLZ 

C R137 

C TFfiCOV 

C T1MFC 

C T1MFA 

C STASH 

C «HN 

C VFU7 

r VRD7 

C XKFP 

C XKFPZ 

C 

C Z END OF NAME OF FUNCTION OR SUBROUTINE INDICATES THAT INPUT* 

C OUTPUT* AND INTERNAL ARITHMETIC ARE PERFORMED IN DOUBLE PRECISION. 
C 

C DFFINITION OF SYMBOLS 

C 

C ERR = TRUNCATION FACTOR I IN RADIANS) USEO IN SOLUTION OF 

C YFPLFRK FOUATION 

C GM = PRODUCT OF G UGAUSSIAN CONSTANT SQUARED) AND M, THE MASS OF 

C THE EARTH* IN UNITS OF KM. CUBED/SEC SQUARFD 
C FJ2=J? ) 

C FJ3=J3 ) HARMONICS OF EARTHS GRAVITATIONAL POTENTIAL 

C FJ4=J4 ) (DJMFNSIONLFSS) 

C FJ5=JS ) 

C FL=INVFRSF OF FLATTENING 

C RE= EQUATORIAL RADIUS OF EARTH IN KM. 

C 

C SENSE SWITCH 6 IS USED IN THE MAIN PROGRAM TO PROVIDE AN OPTION TO 

C GET THF INPUT PRINTED ON LINE. 

C 

C ALL FORMATS USED IN PROGRAM FOLLOW IMMEDIATELY. 

C 

6002 FORMAT 1 12 A6 1 

6003 FORMAT (813 *F10. 1 ) 

6004 FORMAT (E12.6.4E12.5/2F1 2.4) 

6005 FORMAT (/ 1X1PE14.8.9X23H FFET PER NAUTICAL MILE/7 

1 1X0PF8.3 »9X33H EQUATORIAL RADIUS OF EARTH IN KM /2XF5. 1 * 11X22H IN 
2VERSE OF FLATTFN ING/1X* 1PE14. 8.3X31H GM {KM. CUBED/SECONDS SQUARED 



3) //18X44H HARMONICS ©F EARTHS GRAVITATIONAL POTENTIAL /1XE13.6. 

4 4X3H J2/1X*F13.6,4X3H J3/ IX, E13. 6.4X3H J4 /1X,£13*6,4x3h J5 ) 
6006 FORMAT tX. A5 .X.3 12 .X .2J2 ,X,F4.2 . 39X . I 5/6E1Z.8 ) 

6008 FORMAT ( / IX 1 3 . 14X20H INPUT OPTION NUMBER/1SX24H INPUT PARAMETERS A 

1RF //) 

6009 FORMAT (62H0 X Y 2 X OOT 

1 Y 0©T Z DF*T > 

6010 FORMAT < 9H0FPSCH 51 I2.X) ,F6.3) 

6011 FORMAT (X.1P6E14.7) 

601? FORMAT 1 21 HO OSCULATING ELEMFNTS ) 

6014 FORMAT (/18X.25H NO WORLD MAP CALCULATION I 

6016 FORMAT I/45H WORLD MAP CALCULATIONS - START AND END TIMES//) 

6017 FORMAT I/18X.26H NO LOOK ANGLE CALCULATION ) 

6018 FORMAT I/46H LOOK ANGLE CALCULATIONS - START AND END TIMES//) 

6020 FORMAT (/ 1X.F13.S.4X.16H XI - K IL0METERS/1X »F3 3. 5 »4X , 3H X2/1X, 

1 F13.5.4X.3H X3//5X.F12.8.22H VX1- KIL0METFRS/SEC./5X.F12.8. 

2 5H VX2/5X.F12.8.SH VX3 ) 

6021 FORMAT (/ 2X.F11.4 .5X.27H SEMI-MAJOR AX ! S-K I L0METERS/6X » FI 1 » 8 ♦ 

1 14H ECCENTRICITY/3X.F12.6.3X.12H INCL INAT I ON , 3X.9H -DEGREES/3X. 

2 F12.6.3X.24H R.A. ASC. NODE -DEGREES/3X.F12.6.3X.24H ARG. ©F PERI 
3GEE-DEGREFS/3X.F12.6.3X.24H MEAN ANOMALY -DEGREES ) 

6023 FORMAT (5H DATE .6X14HUN IVERSAL T IME. 16X2OHGE0DET I C COORDINATES/ 

1 9H M0/OY/YR.3X4HH M.3X4HSEC. .9X39HLAT 1 TUDE-DMS LONGI TUDE-DMS H 
2FIGHT-KM. //) 

6024 FORMAT 1 1X12. 1H/. I2*lH/» I2.2X2I3.F7.3.8X2I3.F6.2.2XI4. I3.F6.2. 

1 F11.3 ) 

60? 8 FORMAT I I1H PUSH START /////> 

6026 FORMAT (1H1//15X33H LOCAL STATION PREDICTIONS FOR — //8H STATION, 
1 5X10H LONGITUDE »6X9H LAT ITUDE.4X16H HEIGHT (METERS) //) 

6027 FORMAT < 1X.2A3 ♦ 15, I3.F7.3 . !4» I3.F7.3.F11 .2 ) 

6028 'FORMAT ( IX ,2A3 . 5X 14. 1 3 ,F7.3 • 1 5 , 13 .F7. 3 .4XF10.2 ) 

6037 FORMAT (1HI/45X1CH WORLD MAP //) 

6038 FORMAT ( 27H1L3CAL STATION PREDICTIONS 

6039 FORMAT ( 1 3H JOB FINISHFD /////) 

6040 FORMAT (F8.2) 

6041 FORMAT ( 28H1FXECUTE MAIN PROGRAM-WMAPLA/lHl 

6030 FORMAT (6F1 2,8 ) 

6031 FORMAT ,(8?HG A 

I PVFGA THFTA 

6052 format (X.2I2.X.1 9IX.A3.A?) ) 

9501 FORMAT ( 1H0 * 8H ******//) 

°53? FORMAT (1 HC , 17HMUTU4L VISIBILITY//) 

9503 FORMAT (5HOOATE.5X15H UN I VFRSAL TJME/23H MO/DY/YR H M SFC. , 

1 5X,6(4XA6)) 

9504 FORMAT I1H1//15X33H LOCAL STATION PREDICTIONS FOR — //8H STATION, 
15X10H LONGITUDE ,6X9H LAT JTUDE.4X16H HEIGHT (MFTERS)//) 

9505 FORMAT (3I3,F1C.0»51X,I2) 

95P6 FORMAT (4F6.1.I6) 

9507 FORMAT (/////6X27H NO STATION PRINT OUT IF —ft 

11X.25H FLFVATION IS LESS THAN* 14X, I3.8H DEGRFFS// 

27X58H 5 IS PRINTED IF THE ELEVATION IS GREATER THAN OR EQUAL T0I5, 
324H AND LESS THAN 5 DEGREE S/7X89H 9 IS PRINTED IF THE ELEVATION I 

4S GRFATFR THAN OR EQUAL TO 5 AND LESS THAN 10 DEGREES/ 7X72H A 
5 IS PRINTED IF THE ELEVATION IS GREATER THAN OR EQUAL TO 10 DEGRE 
6FS//7X40HA T IS PRINTED OF RANGE IS. GREATER THAN E16.8 , 14HNAUTIC 
7AL MILES//) 

3J13 FORMAT (34X»25HSPJN AXIS COORDINATES ARE/37X»F6.1,24H DEGREES RIGHT 
1 ASCENSION/ 37X»F6. 1 »20H DEGREFS DECLINATION ) 

C IF NC$T=+00, RETAIN STANDARD GODDARD EARTH CONSTANTS AND PROCEED 

7500 FORMAT ( 5HCDAT E, 7X3HUT2 , 1 5X5HRANGE.3X2HA2 , 3X2HEL*3X5HRADAR/ 

1 9H M0/0Y/YR.16H H M STATI0N,6X4H(KM) *12H (DEG) (DEG) , 

2 12H ANGLF ( DFG) //) 

7501 FORMAT (XI2,2(1H/I2)*1X,2< 13 )*2X,2A3 »3XF8. 1 * 1XF5. 1 »XF4»1»2XF5,1/ 
118X,2A3,3XF8.1 ,XF5. 1 .XF4.1 , 2XF5.1 /18X, 2A3.3XF8.1 .XF5.1.XF4. 1 ,2X 
2F5.1/18X,2A3,3XF8.1,XF5.1,XF4.1,2XF5.1/18X,2A3,3XF8.1*XF5.1»XF4.1 

3 '*2XF5.1/18X,2A3,3XF8.1,XF5.1,XF4,1 ,2XF5.1/18X,7A3»3XF8.1,XF5.1 

4 »XF4. 1 »2XF5»1/18X*2A3 ,3XF8, 1 *XF5*1 »XF4. 1 ,2XF5, 1/ 18X, 2 A3.3XF8* 1 
5.XF5.1 ,XF4.1»2XF5,1/18X,2A3,3XF8.1,XF5.1 ,XF4.1 ,2XF5. l/l8x,2A3,3X 
6 F8.1»XF5.1,XF4.1»2XF5.1/ 

718X,2A3,3XF8,1»XF5,1»XF4,1,2XF5.1) 

330 FORMAT (23H MUTUAL VISIBILITY OF A6.29H FOR THE FOLLOWING STATION 
1* ) 

331 FORMAT I 6H HH^M ]9(3X,A3)) 

c 

C ALL OIMFNSION STATEMENTS FOLLOW IM^FOI ATFLY. 

r 

n DIMFNSION RX I 3 ) * VX ( 3 ) * a I 6 ) * A I (6) »RG(3) ,VGC3> ,RLAT(19) ,RLON( 19) 

D DIMENSION RGU( 3 ) ,2(3) .COORD (3 ) ,U ( 3 ) ,SU( 19,3) 

DIMFNSION ELFD( 19)»AZID[ 19) *RGE(19) »TFSTA(19) ,STaTH 19) *STAT(19) 
DIMFNSION RGF1 ( 19),ELED1(19)»A2ID1 (19) * TEST Alt 19) »STAT3t 19) 
DIMENSION GPI5) ,DA(6) .DAD ( 6 ) , A1 10 (6 1 »XXI 12) ,AB(6) ,RXB(3) 

D DIMENSION VXFC3) ,RTX(3) 

D I MENS I ON STAT4 (19), DATA (19) » VXB ( 3 ) , XXX ( 10 ) *SS ( 3 ) 

DIMENSION DUMlt 100). CALI (15),XRG( 19 ) ,XAZ( 19 ) ,XELI 19 ) ,XR t 19 ) 
DIMFNSION XFSTA(19),XZ(19),SAtl9),INU9),IZ(19) 

DIMFNSION SHFO( 1?)*XHFAD(12) 

OIMFNSION PRF ( 140 ) »WPUV ( 44 ) ,flVP 1(8) 

COMMON DUM1 ,A1 10 *GP .FRRB.XX ,AB,RXB$VXB,XXX,SS 

PRINT 6041 
C 

C OEFINF TRUNCATION FACTOR (RADIANS) 
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C TPST FOR 65K SETTING. 

6041 CALL CH65UNW) 

IF(NW)6P3B, 5042. 5038 

60B8 PRINT 5 f ‘4B 

■JRITF Pi IT PUT TAPF 3.5040 

5040 FORMAT (l^HO NOTE T© 0PFRATOR / 72H P'JT MACHINE IN 65K * REWIND AL 
1L TAPF5 , AND START JOB FROM BEGINNING . ) 

PFWJND 1 
PAIIBF 'iDOIfi 
G© T© 5038 

BOA? IFtSFNSF LIGHT Z) 1,1 
D 1 FPR = 1 « OF-fl 
FRRB=B.0F-7 
ITAP F4 = 8 
LPAS = 0 
NPAG3 = 0 

C DEFINE TRUNCAT I0N FACTORS FOR SUBROUTINE BBRWR ( USED T0 CONVERT 
C ©SCULATING FLFMENTS TB BRGUWFR MFAN ELFVFNTS) 

C 

DAnn > = 5.0F-4 
DAn(2l=5.3F-6 
DADf31=5.9F-& 

DAD ( 4 I =5.0F-6 
DAD ( 5 ) =5.0F-6 
DADI6)=5.df-6 


LF7 = 0 
I PFD = 0 

B APPINT=60 60 60 60 60 60 

B rppint = fio 21 60 60 60 fio 

B DPRINT = 60 C5 60 60 60 60 

B FPRJNT = 60 11 60 60 60 60 

B XRXX = T4 77 77 77 77 77 

xn m ft = 6neo, 

NUMSUN = 0 
XS700 = 0, 

IZN'I = 0 

n© 400? I = 1*12 
B400? SHFDfll = 606°6 261 2360 
C ASSUMF VFHICLF STARTS OFF IN SHADOW 

I»A = D 
IF'Y = 0 
IFbmp = o 
IFSD = 0 
IFSH =0 
Ifsm = n 
c 

c DFFINF gpddaro earth CONSTANTS 

r 

n GM=3.0F6032F+5 

n FJ2=l.op?3F-3 

o fj3=-?.’f-6 

D FJ4=-].PF-6 

n *M5=0.0 

f) FL=29fl«3 

D RF=6378. 1 65 


CARD 1 - READ IN l.D. CARD - ANY INFORMATION IN COLS. 2-72 
RFAD 6002 » < XHFAD ( 11*1 = 1*121 
CARO 2 - READ IN CONTROL CARD 

C©LS. 1-3 TYPE ®F INPUT 1+03 = INFRTIAL POSITION AND VELOCITY 
IN VANGUARD UNITS 

+01 = ©SCULATING ELEMENTS-CU AMD RAD 
+04 = BR6UWFR v FAN FLFMENTS ) 

CSLS. 4-6 COMPUTE WORLD MAP AND PREDICTIONS - YES 0R N0 

( YES IF MAP=+XX* N0 IF MAP=+00 ©R -XX > 
+XX ALWAYS 

CHANGE FARTH CONSTANTS 
CHANGE TRUNCATION FACTOR 
BRRWR TRUNCATION CONTROL 
BLANK - USFD INTERNALLY 
NUMBER OF CONTROL STATIONS 
MAXIMUM RANGF TFST VALUF NAUTICAL MjLES 


COLS 
COLS, 

COLS 
C©LS 
COLS. 

COLS 

COLS. .. - 

RFAD 6003,INPUT,MAP*LA,NC5T,NERR*NUA,IRC.I2CT,RGMA 


7-9 

10-12 

13-15 

16-18 

19-21 

22-24 

25-34 


C 

C I2CT IS THF NUMBER OF CONTROL STATIONS. 

C TEST - HAVE ALL CASES BEEN RUN - YES OR NO 

C 

IFII2CT - 19) 5034*5034.3010 
3010 PRINT 5033, I2CT 

WRITF OUTPUT TAPE 3.5033. I 2CT 

5033 FORMAT t 15HOY0U ARE USING I6.60H CONTROL STATIONS. THE PROGRAM CAN 
lONLY HANDLF 19 STATIONS. ) 

68 P4UBF 54321 

GO to 68 


6034 IF ( I NPUT j 300.300.2 

C IF INPUT=+00 OR -XX. ALL CASES HAVE 8FEN RUN. GO TO 300 I END 
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TEST - CHANGE TRUNCATION FACTOR - YES OR N0 


2 IF INFRRl 4*4*3 

CARD 2 A- (OPTIONAL) READ IN NEW VALUE OF TRUNCATION FACTOR IF 

NERR=+XX. IF NERR=+00 OR -XX* PROCEED TO NEXT 
OPTION TFST. 

3 RFAD 6040»ERR 

TEST - CHANGF FARTH CONSTANTS - YES OR NO 

4 IF INCST) 5*11.10 
TO NEXT STFP. 

5 IF (NCST+1) 7.6*7 

USF SIRY PACKAGE CONSTANTS IF NCST = -1 

6 pM=3.9862688F+OS 
FJ2=1.0P214F-03 
FJ3=-2.285F-06 
Fj4s.-2.123F— 06 
FJ5=-2.32F-07 
FL=297.0 
RF=637fl.388 

G«i TO 11 

7 IF (NCST+2) 4,8.11 

USE GODDARD EARTH CONSTANTS WITH HARMONICS =0 IF NCST = -2 

8 FJ2=0.0 
FJ3=0.C 
FJ4=0.0 
C J5=0« 0 
GO TP 11 

USE INTERNATIONAL CONSTANTS WITH HARMONICS = 0 IF NCST = -3 

9 r,M*3.98626873F+5 
e J2*0,0 
FJ3=0.') 

FJ430.0 

FJ5*0*0 

FL-297.D 

RF=63 7 8»388 

GO T« 11 

CARDS 28 AND 2C- (OPTIONAL) READ IN NF.W SET OF FARTH CONSTANTS 
IF NCST*+XX. 

10 R^AD 6004»GM,FJ2,FJ3*FJ4,FJS*FL*RF 

CONVFRT FARTH CONSTANTS 

11 OP ( 1 1 =G M 

GP ( 2 ) = , S*FJ2*RF**Z 
GP ( 3 ) =-FJ3*RF**3 
GP(4)=-.375*FJ4*RE*«4 
GP(S )=— FJ5»PF*«5 

PRINT ALL QUANTITIES ON OUTPUT TAPF A3. 

12 WRITF OUTPUT TAPF 3*3089 
WRITF OUTPUT TAPE ITAPF4.3089 

WRITF OUTPUT TAPF 3*3087 * (XHFAD( I ) , I = 1,12) 

WRITF OUTPUT TAPF I T APF4 * 3087 * ( XHFAD( I ) . I * 1*12) 

WRITF OUTPUT TAPE 3*3089 

WRITF OUTPUT TAPE 3 *5025* (XHF ADI I ) , I = 1.12) 

3087 FORMAT (/////////////// 2I21X6A6/I) 

3D 88 FORMAT MHO) 

SO ? 5 FORMAT (//////////////////////// 2(S4X*6A6/>> 

WRITF OUTPUT TAPE 3*3089 
■an»o bcomaT MF1> 

urjtf ®UTPUT TAPF 3.3088 
WRITF OUTPUT TAPE ITAPF4.308R 
WRITF OUTPUT TAPE ITAPF4.3788 

WRITE OUTPUT TAPE 3 .6C05 .XNMFT *RE* FL.GM* FJ2 *FJ3 »F J4 . FJ5 
WRITF OUTPUT TAPE ITAPF4.6005 .XNMFT'.RF .FL.GM, FJ2»FJ3.FJ4,FJ5 
IF (SFNSF SWITCH 6) 13.913 

PRINT SAME INFORMATION ON LINE IF SENSE SWITCH 6 IS DOWN. 


13 PRINT 600? 

PRINT 60PS .XNMFT. RE, FL.GM, FJ2.FJ3.FJ4.FJS 

913 IF (NDA) 91S,ni5,n]4 

914 RFAD 69S0, ( HAD I N ) , N>1,6) 

o] S nA ( 1 >=UA0(1 ) 

DA (?) = DAD ( 2 ) 

D® oifi N=3,6 
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916 nA(N1=OAD(N)*0. 917453292 
IF (IRC) 917.917,918 

917 1RC-50 

C CARD 4 - READ IN PARAMETERS 

C TAKES STANDARD EPSCH AND ELEMENT CARDS 
C ALL PARAMFTERS USE STANDARD F0RMAT (6E12.8) 

C 918 READ 6OO6»IDSAT.NYE»NME»NDE,NHE»NMNE,TSE.N0RBIT,(AI(N), n = 1.6) 
NYF = i90f> + NYE 


r 

C PRINT FP0CH AND INPUT OPTION ©N 0UTPUT TAPF A3 

C 

15 WRITE 0UTPUT TAPE 3.6010.NYF.NME.NDE.NHF.NMNE.TSF 
WRITE 0UTPUT TAPE ITAPE4.6010 »NYE .NME.NDE.NHE.NMNE ,TSE 
IF ISFNSF SWITCH 6) 16.17 

C PRINT SAME INFORMATION ON-LINE IF SENSE SWITCH 6 IS O0WN 
C 

16 PRINT 60lO.NYE.NME.NDE.NHE.NMNE.TSE 

17 CONTINUE 

C READ THE FP0CH AND DRAG TERM. THE UNITS 0F THE DRAG TERM ARF 
C RADIANS PFP CUT**2. 

C CHANGE DRAG T0 RADIANS PER SEC0ND**2 BY DIVIDING BY 806.832**2. 

READ 5028. IDG1 . I DG2. IDG3 . IDG4, IDG5 . IDG6 >EN2 
5023 FORMAT t 7X.3I 2 .X ,2 12 .X. 12 .4X.E12. 8 ) 

C CONVERT EPOCH UNIVERSAL TIME IN HOURS. MINUTES. AND SECONDS 
C T0 FP0CH UNIVFRSAL T IMF IN RADIANS.' 

C 

0 TIMF0=HMSRZ [NHF .NMNE.TSE) 

C CONVERT EPOCH CALENDAR DATE TO FP0CH JULIAN DATE AT 0 HOURS 

C UNIVFRSAL TJMF. 

c 

DJ0=DJUL IN M E .NDF.NYE) 

C 

C CONVERT FPOCH UNIVERSAL TIME IN HOURS. MINUTES. AND SECONDS 

C TO SFCONDS. 

C 

THF=NHF*3600 

TMNF=NMNF#6C 

TSFP=THF+TMNF+TSE 

GO TP 118.1.22.930), INPUT 

18 WRITF OUTPUT TAPF 3.6012 . 

C INPUT OPTION ] - OSCUCATING ELEMENTS IN VANGUARD UNITS AND RADIANS 

WRITF OUTPUT TAPE ITAPF4, 60.12 
WRITF OUTPUT TAPE 3,6051 
WRITF OUTPUT TAPE ITAPE4.6051 

WRITE OUTPUT TAPE 3,6011. (AI(N).N * 1,6) 

WRITF OUTPUT TAPF ITAPF4.6011.IAI tN) *N = 1,61 
IFISENSF SWITCH 6)19,3002 

1 9 PRINT 6012 
PRINT 6051 

PRINT 6011, (AT IN) *N=1«6) 

GO TO 3002 

C PRINT INPUT PARAMETERS ON OUTPUT TAPE A3 - INPUT 0PT10N 3 
C INERTIAL POSITION AND VELOCITY RECTANGULAR COORDINATES - 

C IN VANGUARD UNIT*. 

C 

22 WRITE OUTPUT TAPE 3.6009 
WRITF OUTPUT TAPE ITAPF4.6009 

WRITF OUTPUT TAPE 3 .6011 . ( A! < N ) .N=l ,6 ) 

WRITE OUTPUT TAPE I TAPE4 ,6011 . t AIIN ) »N = 1.6) 

IF (SFNSF SWITCH 6) 23.28 

C PRINT SA M F INFORMATION ON-LINE IF SENSE SWITCH 6 IS DOWN 

C 

23 PRINT 6000 

POINT 6011, (AMN) .N=l,6) 

GP TO 23 


PRINT INPUT PARAMETERS - INPUT OPTION A - BROUWER MEAN ELEMENTS 

930 WRITF OUTPUT TAPE 3.6051 
WRITE OUTPUT TAPE ITAPF4.6051 

931 WPlTF OUTPUT TAPF 3.601 1 .1 AI (N) »N = 1,61 
WRITE OUTPUT TAPE ITAPF4.6011 » (AI (N) , N = 1,6) 

IF (SFNSF SWITCH 6) 932,3002 


C PRINT SAMF INFORMATION ON-LINE IF SENSE SWITCH 6 IS DOWN 

C 

°32 PPINT 6051 

PRINT 6011 , (Al <N) ,N = 1.6) 

C CONVFRT TO KM AND DFGRFFS 
D’002 Aid) = Aim * 6378.388 

D Al (3 ) = A! (3) * 57.2957795130823 

AAMA = AT (41 

0 A 1 14 ) = A I (6 ) *57.2957795130823 

n AT ( 5 1 = AI (5) * 57.2957795130823 

D A I (6 1 = AAMA * 57.2957795130823 


52 



convert input parameters to ©scuuating elements 


r> 28 CALL PARA ( INPUT * AI • A *GMl 

5027 F0RMAT I 13H0DRAG EFFECTS .6X.7HT <P»Q),8X.7HN (2*Qi* 9X,7HN |3*0| 
1 14X*2(X,3I2l,2(3X»E15.8l) 

WRITE ©UTPUT TAPE I TAPE4 , 5027 * I DG1 ► IDG2* IDG3* IDG4 . IOG5* Il>G6,EN2 
WRITE ©UTPUT TAPE 3. 5027 » IDG1 * IDGZ, IDG3* IDG4* IDG5, IDG6.EN2 

n FN2 = FN2 / 806.832**? 

0 CALL FLRVZ(RX»VX • A »PFR*FN .GMtFRR I 

CALL RR»WR(DA,A* IRC*NNl 

d vxFin=vxm 

ft WXF ( 2 1 =''X I ? ) 

r» VXF(3|=VX( 3) 

FN=S3fl ) 
ftP=SS(?l 
ON=SS<31 

0 PFR=6. ?831 853^7 18/EN 

D PFRM=PFR/60.C 

n PFPH=PFR/3600.0 

ft FN1=FN*206264. 806247096 

ft nN0DF=ftN*495O35S. 3499303 

ft nPFR|=np*A950355. 3499303 

C 

C TFST - 15 WORLD W AP OFSIPFft 

C 

29 IF (MAPI 30*30*33 

30 WRITE ©UTPUT TAPE 3*6014 
IF (SFNSF SWITCH 6) 31.36 

31 PRINT 6014 
3? 6© TO 36 
33 C0NTINUF 


36 CONTINUF 

r 

C CARO 10 - STATION PREDICTIONS AND WORLD MAP ARF REQUIRED. RFAD 

C IN CALENDAR DATE AND UNIVERSAL TIME AT WHICH THE START 

C 0F THE CALCULATION IS DESIRED* CALENDAR DATE AND 

C UNIVERSAL TIME AT WHICH THE TERMINAT I0N 0F THE 

C CALCULATION IS DESIRED* AND THE DESIRED TIME INCREMFNT 

C OF THE CALCULATION IN SEC0NOS. 

C 

40 WRJTF OUTPUT TAPF 3*6018 
WRITE ©UTPUT TAPE ITAPF4.6018 

C 

C PRINT SAME INFORMATION ON-LINE IF SENSE SWITCH 6 IS DOWN 
C 

IF (SFNSF SWITCH 61 41*42 

41 PPTNT 6018 

42 CALL TIMC4(DJO*TSEP»XLAS*XLAF»OTLA) 

C 

C PRINT SAME INFORMATION ON-LINE IF SENSE SWITCH 6 IS DOWN 

C 

43 C0NTINUF 
C 

C CONVERT OSCULATING ORBITAL ELEMENTS T© INERTIAL POSITION AND 

C VELOCITY COORDINATES IN KM AND RV/sfc 

C 

D 46 CALL FLRVZ(RX*VX.A*PER*EN*GM»FRR) 
f) R1=S0RTF(RX(1 )**2+RX(2j**2+RX (31**21 

n V1=SQRTF(VX(1 )**2+VX(2)**2+VX(3)**2) 

C 

C CONVERT TO VANGUARD UNITS OF LENGTH AND VELOCITY 

C 

ft 47 XP1=RX<1 1/6378.388 
n xc'2»RX (21/6378.38C 

D X®3»RX (31/6378.38? 

ft V01=VX(l>/7. 9054722668 

O V‘*'2=VX (21/7,9054722668 

ft V©3=VX (3 1/7.9054722668 

ft P2=SORTF(XP1**2+XO2**2+X03**2* 

ft V2=SORTF(VP1**2+VO2**2+V03**2) 

C 

c C0NVFRT ANGLFS (RADIANS! TO ANGLFS (DEGREES! 

C 

n Aoi = a ( i i 

0 402= A ( 2 1 

D A03=A(3) *57.295779513092? 

0 AS4=A( 4! *57,2957795130823 

D A05=A( 5J*57.29577951308?3 

n A06=A(6J*57. 2957795130923 

01=4110(1} 

P?=A 110(2! 

P3“A110( 3 1*57.2957795 
94=A11 0(41 *57. 2957795 
85 =A 11 0(51*57.295779* 

R6=Al 10(6 1*57, 2957795 


BEGIN LOCAL STATION PREDICTIONS CALCULATION 



200 IF(IREn)3001, 3000. 3001 
3000 READ 9505, NLA, ICC1»MINV,XI1AX. MUTE 
IRFD = 5 

IFINLA - 1*») 73,73,70 

70 PRINT 71, NLA 

WRITF OUTPUT TAPE 3,71,NLA 

71 FORMAT! 16H0 YOU ARE USING 19, 

1 47H STATIONS. PROGRAM CAN ONLY HANDLE 19 STATIONS. 

72 PAU5F 66666 
Go TO 72 

C WIDE PAPER FORM IF MORF THAN 15 STATIONS ARE USED 

73 IF (NLA - 15) 60.60,61 

60 NL5PP * AO 
GO T® 62 

61 NLSPP = 58 

C 6? MAK^ISVEL^ollTIVE IF SPIN AXIS IS ALONG INERTIAL VELOCITY VECTOR 
2001 RFAD 9506. RDMAX.RDMIN.RA, DEC, ISVEL 
C STPRF BLANKS 

IFtNLA - I2CT) 5035,5037,5037 

5035 PRINT 5036 

5036 FORMAT ( 72H0THE NUMBER OF CONTROL STATIONS IS LARGER THAN THE NUMBE 

1 fr k)F STATIONS. 

67 PAUSF 54333 

G® TP 67 

5037 IFINLA - IB) 5004, 5004, 5^06 

5004 NFL = <NLA*2) + 7 
00 5005 I = N r L»44 

5005 WPUV 1 1 } = APRINT 

5006 CONTINUF 
XMIN=MTNV 

XMAX = RGMA * XNMFT * 0.30480061F-03 

003 IF! ISVFL ) 905 ,90 A ,905 

OOOA RAR=PA*. 0174532925 

D OECR=OFC*. 0174532925 

n VXFll) = rPSF(DFCR) * COSFIRAR) 

n VXFI2! = COSF(OECR) * SINFIRAR) 

n VXFI3) = STNFIOFCR) 

G® TO 5026 

f>905 CALL VRDZU»VXF,DECR,RAR,XXX) 

RA- RAR*57. 2957795 
DFC=OFCR*57. 295779 5 
5026 WRITE OUTPUT TAPE 3.950A 

IF (SFNSF SWITCH 6) 201,202 

201 PRINT 950A 

202 np *205 N=1 »NLA 

READ 6027, STAT I N ) ,STAT 1 1 N J , LOND , L0NM, XLSNS , LATD , LATM , 

901 ^WR^TE^ OUTPUT TAPE 3 ,6028 ,STAT ( N ) »STAT1 (N) , LOND , LONM, X LON S » LATD, 
1LATM.XLATS.HGT 

IF ISFNSF SWITCH 6) 203,2031 . 

203 PRINT 602 8 ,ST AT I N ) , LGND , LONM, XLONS ♦ LATD , LATM , XLAT 5 *HGT 
2031 CONTINUF 

0 COOROI 1 ) =OMSRZ I LATD, LATM ,XLATS ) 

f> CO0RD(2)=I)MSR2IL0ND, LONM. XLONS) 

D COORD! 3) =HGT/1 000.0 

n RLAT IN)=CPORD! 1 ) 

n RLPN I N I =CO®RO 1 2 1 

O CALL VFUZ (COORD, RE»FL»U1 

DO 20A J=1 ,3 
20A 5UIN, J)*U( J) 

205 CONTINUF 
N = 1 

IFII2CT) 3095,3095, 309A 

3095 WRI TE ? OUTPUT TAPE 3,3093 , ISTATI J ) ,STAT1 I J ) ,J = 1»N) 

WRITE OUTPUT TAPE I TAPEA ,3093 , (STAT I J) ,STAT1 ( J ) , J « 1,'N) 

3093 FORMAT I //15X21H CONTROL STATIONS ARE /»4( 20X2A3/ ) ) 

WRITE OUTPUT TAPE 3»9507»MINV»MINV»RGXA 
WRITF OUTPUT TAPE 3 ,3013 , RA ,0EC 
WRITF OUTPUT TAPF ITAPFA.3091 

3091 FORMAT (5AH0 S IS PRINTED WHEN THE SATELLITE IS IN THE SUNLIGHT ) 

3092 STS THE^DIGIT NUMBERS UNDER THE STATION NAMES ARE THE S 

1PACFCRAFT LOOK ANGLES. • 

C INITIAL1ZF LINE COUNT AND OELTA J (DIFFERENCE BETWEEN 

C LOCAL STATION PREDICTIONS STARTING TIME AND EPOCH OF INPUT 

C PARAMETERS IN SECONDS) 

C 

3001 LINFS = 1 
LINF6=1 

n DTIMFS=XLAS-nTLA 


i IF (SFNSF SWITCH 2) 2171,217 
PRINT 6025 
PAUSF 77775 
' LINF5=LINFS+1 

SKIP A PAGE AND PRINT HEADING IF 50 LINES OF CALCULATION 



HAVF BFF.N PRINTED 


9601 jj = l 

NP»FD = U 
LINU = 0 
LIN12 = 0 
IALAX = 0 
IMPS = 42767 
9600 CONTINUE 

(1701 6 DTI.MFS = DTIMFS + OTLA 

0 TTMF=TIMEO+DTIMES*0.727220521664304E-4 

D Otl JO- 1 NTF ( TIMF /6* 2 83 1853071 79586 ) 

nj=ojo+onjo 

n timf=all©tz(timei 

c COMPUTE GREENWICH APPARENT SIDEREAL TIMF AT TO + DELTA T 
C 

O t»T = TIMF * a. 81071863471 

n FOR = FON 1 DJ*I1T .XDX.XDX.FCQM) 

D ST = GAST7 IDJ*IJT * EQR ) 

CALL JULCALIOJ*NM»Nr>*NY) 

C C0NVERT UNIVERSAL TIME IN RADIANS T0 H0URS, MINUTES* AND SECONDS 
C 

O CALL RHMSZCTlMF»II.lH*lM,TSl 

NYM19=NY-1400 
C 

CALL PRWR? <DTIMES*EN2) 

SST=S1NF(*T) 

CST=C0SF(9T) 

RMl>sRXPm*rST+RXR(2)*SST 
RGI2)=RXB(2)*CST-RXPU )*SST 
RG(3)=RXB(3) 

O CALL VROZ ( 1 * RG tGCLAT » GCL3N * R 1 

r 

C COMPUTE GF0DFTIC LATITUDE ©F SUBSATELLITE POINT 
C 

D GDLAT * GDLATZIGCLAT *R .RE »FL* ALTT 1 

C 

C COMPUTE HEIGHT QF SATELLITE ABOVE COMPUTATIONAL ELLIPSOID ALONG 
C NORMAL FROM SATELLITF TO ELLIPSOID 
C 

c CONVERT LATITUDE and LONGITUDE IN RADIANS TO. DEGREES* MINUTES. 

C AND SECONDS 

C 

D TGCL0N=GCL0N-3. 141592653589793 
IF ITGCLON) 1062*1062.1061 
01061 GCL0N=TGCL0N-3. 141592653589793 
106? CONTINUF 

C TFST FOR VFHICLE IN SUNLIGHT 
C AN S WILL BF PRINTED IF IN SUNLIGHT 
IF( SFNSF LIGHT 21 3000*3011 
4011 CALL SUN ( n J * T I MF * $LC j 

SLC = SLC - 0.99241E-04 
CFCO = COSFIFCQM) 

SFCO = SINF(FCOM) 

SSLC = SINFISLC) 

C COMPUT COMPONENTS OF SUN 
XSU = C0SFCSLC1 
YSU * SSLC * CFCO 
ZSIl ■ SSL r * SFCO 

RINTQ = RXB I 1 1 **2 + RXB«2i**2 + RXBI3)**2 
PINT = SOPTFIRINTO) 

IF(RINT)3015 *3015*3016 

3015 IFR = 0 

PRINT 3024»IFR,I 
3024 FORMAT (2 16) 

GO TO 3007 

3016 CPSI = ( XSU*RXB < 1 ) + YSU*RXBI 2) + ZSU*RXBI31) / RINT 

3017 IFICPSI 13005*3006.3006 
4005 DFMX * RINTQ - RF**2 

DFMX = SORTFIDFMX) 

I FCDEMX 13018. 3018. 3019 

4018 IFR = 1 

PRINT 3024 * IFR * I 
GO TO 3007 

4019 TNN = RF / DFMX 

CALL ARKTANIRE.OFMX.XNU.il 
SPSI = 1. -CPS 1**2 
TFISPSI 13020*3021 *3021 

3020 IFR = 2 

PRINT 3024* IFR * I 
GO TO 3007 

3021 SPSI = SQRTF(SPSI) 

CPSI =-CPSI 

CALL aRKTaN(SPSI*CPSI.PSVA.U 
X90nG = U5707963 
GULX = X90DG - PSVA 
TFNN a GULX + XNU - X90DG 
IFITFNNl 4006*3006.3007 
P3006 SUNN = 62 60 60 60 60 60 
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IGDR = 2 

C VFHIO.F IN SUN 

NUM5UN = NUMSIIN + 1 
GO TO 30Ofl 

B300T SUNN = 60 60 60 60 60 60 
IGD9 = 1 

C VFHICL C IN SHADOW 

3008 CONTIN1JF 

IF(IVA) 3026.3025.3026 
*0?s IVA = ? 

DTFSH = OTIMFS 
GO TO 3030 

3026 IFIIGDR - IGPM>3027. 3030. 3028 

3027 I^SY = NYM19 
IFSMP = NV ‘ 

IFSD = NO 

I F5H = TH 
ifsm = rv 
DTFSH = OTtVF? 

GO TP 3030 

03028 PFRCNT = 100. -( ( DT IMFS - nTFSH) / (36. * PFRH) 1 
DRAT = (DTIKFS - OTESHJ / 60. 

WRITE OUTPUT TAPE 5.3029. IESY , I ESM0. IESD, I FSH. IESM.NYM19.NM.ND. 
1IH.IM.ORAT, PFRCNT 

3029 FORMAT t5X»312.X*2I2»13X.3I2»X*2I2»5X»F7«l»llX»F7.2) 

3031 FORMATaH1.20X,21H SUNLIGHT HISTORY OF A5//5X63HSATELLITE WILL BE 
1 IN SUNLIGHT AT ALL TIMES EXCEPT WHEN IT WILL /5X, 

2A0HFNTFR SHADOW AT AND LFAVF SHADOW AT //5X. 

373HYYMMRD HHMM YYMMDD HHMM DURATION (MIN) PERCENT IN 

A SUNLIGHT ) 

30*0 IGDM = IGDR 
C 

* IF(XSTOO) *070.3069.3070 
3069 XGLAST = OOLT 
GP TO 3074 

*070 IFfGDLATJ 3073 .3071 .3071 

3071 I F ( XGLAST 13072.3073.3073 

3072 NOROIT = NOPPIT + 1 

3073 XGLAST * GDLAT 

3 •'74 XSTOO = X«700 + 1. 

IF(JJ - 1J3078. 3077. 3078 
30*7 IPfiPFR = NOR* IT 
3078 CONTINIIF 

IF ( XS700 - 300.13064.3063.3063 
3061 XS700 = 1. 

PRINT 5050.NYM19.NM.ND.IH.IU 
5050 F0RMATI3X.3 12 *2X .2 I 2 ) 

3064 KK = 0 

00 3081 I * 1.19 
*081 XFSTA(I) = APRINT 
D« 24? N=] iNLA 
net 232 M=1 ,3 

D 232 OGU f M 1 =RG( M ) — SU ( N . M ) 

D CALL R13Z(RTX.0.-ST.RGU1 

D nUMX=n0T7(RTX.VXD 

TFSTA(N1=DUMX*57. 295780 
ft R13A1=1 .57079632679-RLAT ( N ) 

0 R13A2=l.57079632679+RL©NIN) 

D CALL R13ZIZ.R13A1 .R13A2.RGUI 

D CALL VRDZ I 2 .Z.FLEVAT » AZ IflUT .RANG) 

FLFQIN )=57.2957S*ELFVAT 
AZ1D(N)=57.29578*AZIMUT 

RGF(N)=PANG 
DATA (N) = “PRINT 
IP(FLFD(ni 1233.319.318 
*18 IFfFLFD(N) - 5.0) 319.321*320 

319 daTA(N) = DPR I NT 
G® TP 2*8 

320 IF(FLFD(N1 - 10. 1321.238. ?38 
371 DATA(N) = FPRtNT 

238 iF(RGFtN) - X*!AX ) 239.239.902 
233 DATA ( N 1 = APRINT 
G0 T0 242 

n 902 DATA(N) = DATA(N) + I- XRXX1 
7*9 IOATAX = APRINT 
3004 SFNSF LIGHT 1 
4f»r)n FPRUAT (5!5. r 16.8) 

4001 FfiRUAT (4*16. 8.715) 

32? TFINPRcn) 741.310.241 

310 DP 30^9 III = 1.I2CT 
I DAT = DATAt III) 

IFJIDAT - IOATAX 131 1.3009. 311 
*3009 C0NTINUF 
G0 T0 241 

311 NP9FD = 1 
241 KK = KK + 1 

IFIIALAX - 11 3061.3061.3067 
*061 IALAX = KK 
3"6? CPNT1NUF 

XRG1KK1 = 9RF(N) 

XA71KK1 = AZIOCN) 

XFLIKKI = FLFn(N) 
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XO{KK) = TFSTAfN) 

STAT3IKK) = STAT(N) 

STAT4CKK) a STAT1 (N) 

IN(K*C) = N 
IZ(XX) = TFSTA ( N ) 

24? r»MTlNUP 

C C3NVFRT S/C ANfiLF T0 BCR 
13090 ,3090.3082 
’<11? no Anna | & 1 

CALL TFSC0V(1Z( n »XZI!»» 

3083 C»NTIN«JF 

no ^085 j = i ,j« 

1NVA = 1N(I > 

3085 XFSTA(INVA) = X7(I) 

03090 CiCLN = GCLGN * 57.29577951 
R GRLT = GRLAT * 57.29577951 

IF 1SFNSF LIGHT 1) 243,2460 

243 IF (LC2-1) 245,?44»?45 

244 LC2 = 0 
?45 JJ = JJ + 1 

I7NU a 10 

C SFT UP WPlIV APR AY 

WPHV(l) = NYV 1 9 

»PUV(?> = KM 

WPUV(3) = NR 

WPUV(4) = IH 

WPUVI5) = IM 

V'PIJV ( 6 ) = NPRRIT 
no 5no3 I = ] * ml a 
NXR = (1*2) + 5 
WPtlV(NXR) = XFCTAm 
NXR = Nxn + l 
5nr»3 VPtiV(NXR) a nAT Alt) 
r £Ti»Re wptiv 

IPOS = 12000 - L INI 1 * 44 
IFIIPPS - 44 ) 50 19, 50? 1 ,50?1 
5019 RTIMFS a RTIMFS - RTLA 
SFNSE LIGHT 3 
G« T0 2460 

5021 CALL STASH(WPUV»44» IP0S) 

IF (MAP) 3079,3079 ,3080 
C SFT IIP C<aR 65 K . 

*0«0 PRF ( 1 ) a XX 

PRF(21 » *TAT3fl ) 

P»F(3) = 5TAT4I1 1 
PRF f 4 ) a XPG(1) 

PPF(5) = X*7(l) 

PRF (6 ) a XFLdl 
PRF ( 7 ) = XRd ) 

PPF ( 8 ) * GRLT 
PRF (9) a r.CLN 
PRF ( 10 ) a ALTT 
PRF (11) = SUNN 
LIN12 = LJN12 + 1 

NXR = 11 

I F ( XX - 1 )50P2,500?, 50PP 

5000 of 5001 X a ? ,KX 
NXn a(X*7>- ? 

PRF(NXR) a STAT3 (K) 

NXR = NXR + 1 
PRF(NXn) = STAT41K) 

NXR a NXO + 1 
PRF(NXR) = XRG(K) 

NXR = NXO + 1 
PRF(NXR) a XAZ(K) 

NXR = NXR + 1 

PRF ( NXn ) = XFL(X) 

NXR = NXR + 1 
PRF (NXR) a XR(K) 

NXR a NXR + 1 

5001 PRF (NXR) = SUNN 

5002' IF( IM®S - 12000 - NXR) 50?0, 5022*5022 
R5020 RTIMFS = RTINFS - RTLA 
LL1 1 = LL11 - 1 
SFNSF LIGHT 4 
G0 T0 2460 
C ftorf PRf 

502? CALL 'STASH(PRF, NXO, IMPS) 

I MRS a. J vpc - NXR 
IX = IX + ] 

3051 F0RMAT (13X,2A3,F9.1,2F6.1,F7.1,5A6) 
*07R LINI1 = LIN] ] + 1 
C.0 TO 247 

2460 IF (NLA - 1)3059,3060,63 
63 IF(MUTF)313, 5031, 313 
5031 mjALAX - 1)3059,3059,3060 
3060 IF(NPREO) 313,3059.313 
313 jvx = JJ -1 
LPAS =10 

WRITE 0UTPUT TAPE 3,3076 , I 9G3RB 
307fi F0PMAT { 1H1 »27X » 13H BRBIT NMMBFR 16) 
WRITF ©UTPUT TAPE 3,330, inSAT 
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an * 2 

LA53RR = IRPPRB 
C RFTURN WPUV 

0? 3054 K = 1.LI.N11 
L0K = 12000 - [ K-l ) * 44 
CALL PACK (WPUV ,44 *L0K) 
np 5007 I a 1*5 

5007 MVPim = KPUVm 

I p (LL11 - 2) 503? ,64,5032 

64 I F [ NPAG" 1 165 ,5029 ,65 

65 NPAG3 = 0 

LL1 1 = LL1 1 + 1 
MVPII7) = WPI'V(6) 

WRITF 0UTPUT TAPE 3,66,MVPI(7) 

66 FSRMAT ( 2FX, 13H flRRIT NUMBER 16 ) 

5029 WRITF ©UTPUT TAPE 3 » 5030 »MVPI< 2 1 ,MVPll 3) .MVPI f 1 ) 

5030 FORMAT (28X.18H DATEIMM/DD/YY ) = 2 1 12. 1H/ ) , 12 ) 

WRITF 0UTPUT TAPF 3 .331 , (STATU I ), I = 1 .NLA) 

5032 MVPII7) = WPUV C 6 ) 

I F I LAS0RR - W VPI (7 ) ) 5016.5017.5017 

5016 LA5®RP = VVPI 17) 

WRITF 01JTPUT TAPE 3.5O18.LAS0RR 
WRITF OUTPUT TAPF I TAPF4 .5O18.LAS0RP 
5018 F0RMAT (IH0.27X13H ©RBlT NUMRFR 16) 

WRITF 0UTPUT TAPE 3 ,4006 .APRINT 
LL1 1 ‘ LL11 + 3 
LL12 = LL12 + 2 

5017 NFNO = (NL'A*2) + 6 

WRITE ©UTPUT TAPE 3 .6052 » (MVP 1 1 I) . I = 4.5). I WPUV ( I ) . I = 7.NEND) 
IF(M A pj 5014,5014.102 
102 LINF4 = 1 

JR(K-l) 5009,5008,5009 

5008 TM<as = 32767 

WRITF 0UTPUT TAPE ITAPF4 ,3076 . IBGSRB 
WRITF ©UTPUT TAPF I TAPF4 ,332 , IOSAT 
LL12 = 3 

5009 CALL RACK (PRF, 11,1^0?) 

C RFTURN PRF 

IMPS = JMpj; _H 

MVP! (6) = PRF(l) 

WRITE OUTPUT TAPE 1TAPE4, 4006, APRINT 
4006 F0RMAT {114X,A6) 

WRITF SUTPUT TAPE I TAPF4 ,323, (MVP II <) »K = 1 ,5 1 » (PR£( K) ,K = 2,11) 
LL12 = LL1 2 + 2 
! c tLLl 2 - 40) 5024,5024.5023 
50?3 WRITF SUTPUT TAPE ITAPF4 ,3076 ,MVPI t 7 ) 

WRITF ©UTPUT TAPE ITAPF4,4005 
LL12 = 3 

5024 IF ( W VP 1(6) - 11 5014*5014*5010 

5010 IPPP = WP 1(6) 

nra 3056 I = 2. IPPP 
CALL BACK (PRF, 7, I MSS) 

IMps = IMPS - 7 

WRITF ©UTPUT TAPE ITAPF4,3051*(PRF(Kl , K = 1,6) 

LIN1? = LIN12 + 1 

LLI? = LL1 ? + l 

l e ( LL17 - 40)3056,3056.4004 

4004 WRITF ©UTPUT TAPE I TAPF4.3076 »MVP I (7) 

URITF ©UTPUT TAPE ITAPF4.4005 

4005 F0RKAT ( 20X5HRANGE, 4X,4HA2 I » ,2X, 5HFL£V« ,2X»8HS/C LS0K,2X ,4HLAT. 

1 ,2X,5HL0NG.,2X6HHFIGHT / 

218H YYMMDO HHMM STAT. ,3X,4H(<i4) . 4X.35H DEGREES 

3 »3X ,4H ( KM) ) 

LL12 = ? 

3056 C0NTINUF 

5014 LL11 = LL31 + 1 

! p (LLll - NLSPP) 3054,3054,4003 
4003 WRl T F SUTPUT TAPF 3,3089 
LLI 1 = ? 

NPAG© = 10 
3054 rPNTINUF 

WRITF SUTPUT TAPF 3,9501 

UP I TF SUTPUT TAPF ITAPF4.9501 

LC? = 0 

C PUT SENSF SWITCH 3 D0WN Te TERMIMTF RUN BEF0RE THE END TIMF. 

C 

IR(SFNSF SWITCH 3)5012,3059 
3069 C0NTINUF 

323 FSRMAT ( X ,3 12»X» 2 12 »X ,2A3 ,F9. 1,ZF6.1*F7»1,F10.1,F7.1»F9.1,X,A3) 

332 FSRMAT (55H LGCAL STATISN PREDICT I0NS AND SATELLITE WSRLD MAP FSR 
1A5/2UX5HR ANGF .4X.4HAZ I • ,2X , 5HELEV . . 2X.8KS/C LS0K, 2X» 4HLAT . , 2X, 
?5HL©NG.»2X6HHFIGHT / 

318H YYMMDD HHMM STAT. »3X»4HI<M) ,4X,35H DEGREES 

4 ,3X,4H(<m> ) 

317 IF(DTl-VFS - XLAF) 960 1,248, 248 
247 C©NTINL' e 

IF(DTIVFS - XLAF) 9600,5015,5015 

5015 I © ( L INll - 2 ) 2 48,248,2460 
746 |F (SFNSF SWITCH 2) 249,7010 

749 PRINT 6025 
PAUSP 77774 
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7010 JPtLPASJ *912.5011.5012 
«S ft ll t,PAC « in 
09 T9 2460 
50 1? J«X * 9 

WRITE SUTPUT TAPE I TAPF4 .3031 » I0SAT 
WRITE 9UTPUT TAPE 5.3032.JJ1X 
END EIUF 5 
REMIND 5 

3033 REAP INPUT Tape 5.3032.JMX* (SA( I) »! » 1*32) 
*032 FP»MAT m»JHA6)*A3I 

IFIJMX - 9)3034.3035.3934 

3034 WRITE 9UTPUT TAPE I T APE4 > 3036 * ( SA I I ) * I = 1.121 
*036 FORMAT nX*lllA6)»A3) 

(v» T» 3033 

3035 RFwtNP 5 

<59 3000 

C FNfi LOCAL ST AT I3.M PREDICTIONS CALCULATION 

300 PRINT 6039 
END FILE 3 
PA<)9F 77 77? 

r;e> T9 TO 
END 
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APPENDIX VI 

SOURCE DECK FOR MAIN PROGRAM TWO 
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* DATE 10/19/64 

* GDR 

* PAU5F 

* XEQ 

« CARDS COLUMN 

* LI ST 8 

* LABEL 

* FORMAP 
CWMAPLA 

C GENERALIZED WORLD HAP AND L©CAL STATION PREDICTIONS PROGRAM. 

C 1A. CONVERTS OSCULATING ORBITAL ELEMENTS TO INERTIAL POSITION 

C AND VELOCITY RECTANGULAR COORDINATES. 

C IB. CONVERTS INERTIAL POSITION AND VELOCITY RECTANGULAR 

C COORDINATES TO OSCULATING ORBITAL ELEMENTS. 

C 2. COMPUTES WORLD MAP ON REQUEST. 

C 3. COMPUTES LOCAL STATION PREDICTIONS 1 LOOK ANGLES! ON REQUEST. 

C PROCESSES 1» 2. 3. OR 4 STATIONS SIMULTANEOUSLY ON REQUEST. 

C ALL INTERNAL CALCULATIONS ARE PERFORMED USING THE KILOMETER AS 

C THE UNIT OF LENGTH AND THE SECOND AS THE UNIT OF TIME. IF ANY 

C OF THE OPTIONAL INPUT PARAMETERS ARE DEFINED IN OTHER UNITS. 

C THEY ARE CONVERTED TO THESE UNITS AS SOON AS THEY ARE READ IN 

C AND ARE SUBSEQUENTLY USED IN THE CALCULATIONS IN KILOMETERS 

C AND SECONDS. 


REQUIRED SUBROUTINES AND FUNCTIONS 

ALLOT 

ALLOTZ 

ATANQ 

ATANZ 

BBRWR 

BRWR1 

BRWR2 

DJUL 

DMSRZ 

DOTZ 

ELRV 

ELRVZ 

FQN 

GASTZ 

gdlatz 

HMSRZ 

JULCAL 

PARA 

RDMSZ 

RHMSZ 

RVELZ 

R13Z 

TIMFC 

VFUZ 

VRDZ 

XKEP 

XKEPZ 


Z end OF NAME OF FUNCTION OR SUBROUTINE INDICATES THAT INPUT, 
OUTPUT, AND INTERNAL ARITHMETIC ARE PERFORMED IN DOUBLE PRECISION. 


DEFINITION OF SYMBOLS 

ERR * TRUNCATION 'FACTOR (IN PAD I ANSI USED IN SOLUTION ©F 

GM P = E pRODUCT T 0F G (“GAUSSIAN CONSTANT SQUARED) AND M» THE MASS OF 
THE EARTH. IN UNITS OF KM. CUBED/SEC SQUARED 

FJ3=j| > HARMONICS OF EARTHS GRAVITATIONAL POTENTIAL 
FJ4=J4 ) ( DIMENSIONLESS) 

FJ5=J5 ) 

FL= INVERSE OF FLATTENING 

RE= EQUATORIAL RADIUS OF EARTH IN KM. 

SENSE SWITCH 6 IS USEO IN THE MAIN PROGRAM T© PROVIDE AN OPTIONAL 
OUTPUT ON LINE. IF SENSE SWITCH 6 IS DOWN, THE S AME ■ I NF0RMAT ION 
WHICH IS PRINTED ON TAPE A3 IS ALSO PRINTED ON LINE. IF SENSE 
SWITCH 6 IS UP. OUTPUT IS PRINTED ON A3 ONLY. 

ALL FORMATS USED IN PROGRAM FOLLOW IMMEDIATELY. 


6001 FORMAT (36H15ANDTRACKS ORBITAL COMPUTING SYSTEM // ) 

6002 FORMAT (72H 
1 

6003 FORMAT (713) 

6004 FORMAT (E12.6.4E12.5/2F12.4) 

6005 FORMAT (/ 1X1PE8. 1 »9X39H TOLERANCE REQUIRED FOR KEPZ SUBROUTINE// 

1 1XOPF8.3 .9X33H EQUATORIAL RADIUS OF EARTH IN KM /2XF5. 1 » 1 1X22H IN 
2VERSE OF FLATTENI NG/1X. I PE 14. 8 .3X31 H GM (KM. CUBED/SECONDS SQUARED 
3) // 1 8X44H HARMONICS OF EARTHS GRAVITATIONAL POTENTIAL /1XE13.6. 

4 4X3H J2/1X.E13.6.4X3H J3/1X, E13.6 ,4X3H J4 /1X»E13.6,4X3H J5 ) 

6006 FORMAT (2(1X12) .1X14. 213. FT. 3/6F12. 61 

6008 FORMAT (/1X13 , 14X20H INPUT OPTION NUMBER/ 18X2 4 H INPUT PARAMETERS A 
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1RF //) 

6009 FORMAT (46H GEOCENTRIC EQUATORIAL RECTANGULAR C00ROI NATES/TOH REQU 
1IRE0 UNITS - CRAZY MIXED UP VANGUARD UNITS OF LENGTH AND VELOCITY) 

6010 FORMAT (/ 1X12, 1H/12 , 1H/ I4.7X25H EPOCH. DATE OF PARAMETERS/2 ( IX 12 ) » 
1 F7.3.5X29H EPOCH TIME OF PARAMETERS-UT2 ) 

6011 FORMAT (/6X.F12.9. 20H XI - VANGUARD UNITS/6X.F12.9. 3H X2/ 

1 6X.F12.9. 3H X3//6X.F12.9. 20H VX1- VANGUARD UNITS/6X.F12.9, 

2 AH VX2/6X.F12.9. AH VX3 ) 

6012 FORMAT C30H ORBITAL ELEMENTS - ©SCULAT ING/69H PEQUIRED UNITS - ALL 
1 ANGLES IN DEGREES .SEMI-MAJOR AXIS IN KILOMETERS ) 

6013 FORMAT (/ 2X.F1 l.A. 5X.27H SEMI-MAJOR AX1S-KILQMETERS/6X.F11.8 . 

1 1 AH ECCENTRICITY/3X.F12.6.3X.12H INCLINATION.3X.9H -DEGREES/3X. 

2 F12.6 .3X.2AH R.A. ASC. NODE -DEGREES/3X.F12.6.3X.2AH ARG. 0F PERI 
3GEE-DEGREES/3X.F12.6.3X.2AH MEAN ANOMALY -DEGREES ) 

6014 FORMAT (/18X.25H NO WORLD MAP CALCULATION J 

6016 FORMAT t/A5H WORLD MAP CALCULATIONS - START AND END TIMES//) 

6017 FORMAT E/18X.26H NO LOOK ANGLE CALCULATION ) 

6018 FORMAT 1/4 6H LOOK ANGLE CALCULATIONS - START AND END TIMES//) 

6019 FORMAT (/ 32H QUANTITIES COMPUTED FROM INPUT ) 

6020 FORMAT 1/ IX. F13 .5 . AX, 16H XI - KIL0METERS/1X.F13.5.AX.3H X2/1X, 

1 F13-5.AX.3H X3//5X. F12.8 »22H VX1- KILOMETERS/SEC. /5X.F12. 8. 

2 5H VX2/5X.F12.8.5H VX3 ) 

6021 FORMAT </ 2X.F11.A.5X.27H SEMI-MAJOR AX I S-K I LOME T ERS/6X » F 1 1 » 8 ♦ 

1 14H ECCENTRIC I TY/3X.F12. 6* 3X » 12H INCL INAT ION .3X.9H -DEGREES/3X. 

2 F12.6.3X.2AH R.A. ASC. NODE -DEGREES/3X.F12.6 .3X » 2AH ARG. OF PERI 
3GEE-DEGREES/3X.F12.6.3X.2AH MEAN ANOMALY -DEGREES ) 

6022 FORMAT (/ AX, FI 1 . 6 .3X.7H PERIOD.8X.7H -HQURS/2XF1 1 . A.20X.9H -MINUT 
1ES/AX.F11.6.3X.12H MEAN MOTION, 3X. 1AH -DEGREES/H0UR//AX.F11.6.3X, 

2 15H MOTION OF N0DE.8X.1AH - DEGREES/DAY/ AX ,F1 1 .6 >3X, 18H MOTION OF 

3 PERIGFE.5X.14H - DEGREES/DAY ) 

6023 FORMAT 1 5H DATE .6X14HUN I VERSAL T IME ♦ 16X20HGESDET I C COORDINATES/ 

1 9H M0/DY/YR.3XAHH M.3XAHSEC* .9X39HLAT ITUDE-DMS LONGITUDE-DMS H 
2FIGHT-KM. //) 

602A FORMAT I IX 12 , 1H/ . 12 , 1H/ , 12 .2X2 13 » F7 .3 ,8X2 13 . F6 .2 , 2X1 A , 13 ,F6.2 , 

1 F11.3 ) 

6025 FORMAT (11H PUSH START /////) 

6026 FORMAT (1H1//15X33H LOCAL STATION PREDICTIONS FOR — //8H STATION. 
1 5X10H LONGITUDE »6X9H LAT ITUDE. AX16H HEIGHT (METERS) // ) 

6027 FORMAT ( 1X2A3 , 1 5 » 1 3 »F7.3 , 14 » 1 3 » F7.3 »F1 1. 2 ) 

6028 FORMAT ( IX »2A3 ♦ 5X I A, 13 , F7 ,3 , 1 5. 13 »F7.3 » AXF 10.2 ) 

6037 FORMAT (1H1/A5X10H WORLD MAP //) 

6038 FORMAT ( 27H1L0CAL STATION PREDICTIONS I 

6039 FORMAT (13H JOB FINISHED /////) 

60A0 FORMAT IE8.2) 

60A1 FORMAT (28H1EXFCUTE MAIN PR0GRAM-WMAPLA/ 1H1 ) 

60A2 FORMAT ( A3H GEOCENTRIC EQUATORIAL INERTIAL COORDINATES/ 

1 50H REQUIRED UNITS - KILOMETERS ANO KILOMETERS/SECOND) 

60A3 FORMAT ( 1X.F13 . 5 » AX. 17H XI - K I L0METERS/1X.F13. 5 » AX. 

1 17H X2 - KIL0METERS/1X.F13.5, AX.17H X3 - KI LOMETERS//5X.F12.8 . 

2 1X.13H VX1 - KM/SEC/5X.F12. 8 * IX. 13H VX2 - KM/SEC/5X , F12 . 8 » IX. 

3 13H VX3 - KM/SEC) 

60AA FORMAT (/I8X.50H 8R0UWER HARMONICS COMPUTED FROM J2.J3.JA, AND J5 

1 /1X.1PE1A.8.3X.2AH K2 (KILOMETERS SQUARED) /1X.E1A. 8 »3X, 

2 22H K3 (KILOMETERS CUBED)/1X»E1A.8»3X. 

3 29H KA (KILOMETERS FOURTH POWER ) /IX . El A. 8 ,3X, 

A 28H K5 (KILOMETERS FIFTH POWER)] 

60A5 FORMAT (/AX.63H POSITION AND VELOCITY VECTORS - GEOCENTRIC EQUATOR 
UAL INERTIAL) 

6046 FORMAT </lX» c 13.5»4X»17H XI - K ILOMETERS .3X.F12. 8 , IX » 

1 21H XI - VANGUARD UN ITS/1X.F13. 5.4X, 17H X2 - K I L0METERS.3X, 

2 F12.8.1X.21H X2 - VANGUARD UN ITS/1X.F13 .5 » AX , 

3 I7H X3 - KILOMETERS, 3X.F12. 8, IX. 21H X3 - VANGUARD UNITS) 

60A7 FORMAT ( /5X.F12.8. IX , 13H VX1 - KM/SEC.7X.FI2.8 »1X» 

1 21H VX1 - VANGUARD UN I TS/5X. F12. 8 » IX. 13H VX2 - KM/SEC, 7X.F12. 8, 

2 IX » 21H VX2 - VANGUARD UN I TS/5X.F12.8 , IX. 13H VX3 - KM/SEC »7X» 

3 F12.8 ♦ 1X.21H VX3 - VANGUARD UN ITS//1X.F13.5.AX. 

A 17H R - KILOMETERS, 3X.F12. 8, 1X.21H R - VANGUARD UNITS/5X, 

5 F12.8 .1X.13H V - KM/SEC.7X.F12.8.1X, 

6 21H V - VANGUARD UNITS) 

60A8 FORMAT (/26X.17H ORBITAL ELEMENTS//20H OSCULATING ELEMENTS.2X. 

1 22H BROUWER MEAN ELEMENTS//1X»F12,4,11X.F12.A,7X» 

2 29H SEMI-MAJOR AXIS - KIL0METERS/6X.F11.8, 12X.F11.8.3X, 

3 13H ECCENTRICITY/4X»F11.6,12X,F11.6,5X, 

A 26H INCLINATION - DEGREES/AX, FIX. 6 , 12X ,F11 .6 ,5X» 

5 26H R.A. ASC. NODE - DEGREES/<*X»F11.6.12X»FI1.6»5X» 

6 26H ARG. OF PERIGEE - DEGREES /AX, F11.6, 12X, FI 1 >6,5X, 

7 26H MEAN ANOMALY - DEGREES) 

60A9 FORMAT ( / 45H TRUNCATION FACTORS USED IN COMPUTING BROUWER / 

1 39H MEAN ELEMENTS FROM OSCULATING ELEMENTS// IX .1PE8.1.9X, 

2 29H SEMI-MAJOR AXIS - KIL0METER5/1X » £8. 1.9X.13H ECCENTRIC ITY/1X, 

3 E8.1.9X.26H INCLINATION - DEGREES/1X.E8.1.9X, 

A 26H R.A. ASC. NODE - DEGREES/1X ,E8. 1 »9X» 

5 26H ARG. OF PERIGEE - DEGREES/ IX . E8 . 1 ,9X. 

6 26H MEAN ANOMALY - DEGREES ) 

6050 FORMAT (6F12.8 ) 

6051 FORMAT (22H BROUWER MEAN ELEMENTS/69H REQUIRED UNITS - ALL ANGLES 
1 IN DEGREES. SEMI-MAJOR AXIS IN KILOMETERS ) 

6052 FORMAT (1XI2.21 1H/I2) » IX > 2 ( 13) «F7.3,5X>12( 2XA3 ) ) 

9501 FORMAT (1H0.8H ******) 

9502 FORMAT (1H0.17HMUTUAL VISIBILITY//) 

9503 FORMAT ( 5H0DATE » 5X15H UNIVERSAL TIME/23H MO/DY/YR H M SEC.. 

1 5X. 12 (2XA3 ) > 
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9504 FORMAT (1H1//15X33H LOCAL STATION PREDICTIONS FOR — //8H STATION, 
15X10H LONGITUDE ,6X9H LATJTU0E.4X16H HEIGHT METERS)//) 

9505 FORMAT (3I3»F1Q»01 

9506 FORMAT t 4*6. 11 

9507 FORMAT I/////7X26HN© STATION PRINT OUT IF --// 

I1X.25H1, ELEVATION IS LESS THAN»14X,13. 8H DEGREES/ 

21X,25H2. RANGE IS GREATER THAN ,7X,F9*0,12H KILOMETERS/ 

31X,30H3. RADAR ANGLE IS GREATER THAN,6X,F6.1,8H DEGREES/ 

4 19X , 12H0R LESS THAN,6X,F6.1,8H DEGREES/// 

54X.25HSPIN AXIS COORDINATES A8c*8X.F6.1,24H DEGREES RIGHT ASCENSI© 
6N/37X,F6»1 ,20H DEGREES DECLINATION I 

7500 FORMAT! 5H0 OATE » 7X3HUT2 * 1 5 X 5HR ANGE * 3X 2HAZ » 3X 2HE L , 3X 5HR AD A R / 

1 9H H0/&Y/YR»16H . H M STATION, 6X4HfKM),12H (DEG) (DEG) . 

2 12H ANGLF tDFG) //) 

7501 F0RMATIXIZ,2(1H/I2),1X,2I 131 ,2X,2A3 ,3XF8. WIXF5.1 »XF4. 1 ,2XF5.1/ 
118X,2A3»3XF8.1,XF5.1,XF4.1,2XF5.1/18X»2A3,3XF8.1»XF5.1»XF4.1.2X 
2F5. 1/18X ,2A3 *3XF9» 1 »XF5. 1 »XF4«1 »2XF5» 1/18X »2A3 » 3XF8. 1*XF5. 1*XF4.1 

3 ,2XF5U/18X,2A3»3XF8.1,XF5.1,XF4.1»2XFS.1/18X,2A3,3XF8.1,XF5.1 
A ,xF4.1,2xF5.1/18X,2A3,3XF8.1*XF5.1»XF4.1,2XF5.i/18x»ZA3«3XF8.1. 
5,XF5.1»XF4.1»2XF5.1/18X,2A3,3XF8.I,XF5.1»XF4.1,2XF5.1/1SX,2A3»3X 
6 F8.1»XF5.1»XF4.1,2XF5.1/ 

71SX,?A3*3XF8.l,XF5.1,X*4.1»2XF5.1) 


C 

C 

C 

D 

D 


0 


C 

C 

c 

c 

0 

D 

C 

C 

C 
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s 

0 

c 

c 
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c 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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ALL DIMENSION STATEMENTS FOLLOW IMMEDIATELY. 

DIMENSION RXI3) ,VXC3) *A<6) »A! 16) *RG13) »VGI3) *RLAT(12I *RLQNI12) 
DIMENSION RGU( 31 ,2 13 >.C3©RDI3)*UI 3 }.SUt 12*3) 

DIMENSION ELEDI12) ,AZ ID( 12 I »RGE(12 > *TESTA( 12) *STATK 12) »5TAT2(IZ> 
DIMENSION RGE1 ( 12 ) »ELED1 ( 12) , AZID1 (12) » TEST AH 12) #STAT3t 12) 
DIMENSION GPI5) *DA16) ,DAD(6) »A110(6) »XX< 12 ) ,A3I6) ,RX8<3) 

DIMENSION VXEI 3) ,RTXt3) 

DIMENSION STAT4tl2),DATA{12}»VXB53)*XXX{10),SS{3) 

DIMENSION 0UM1U00) 

COMMON DUM1 ,AU0»GP.ERRB,XX»A8,RXB,VX8»XXX.SS 
PRINT 6041 

DEFINE TRUNCATION FACTOR {RADIANS) 

1 FRR=I»0£-8 
FRRB=3.0E-T 
EN2 =0.0 

DEFINE TRUNCATION FACTORS FOR SUBROUTINE 88RWR ! USED TO CONVERT 
OSCULATING ELEMENTS TO BROUWER MEAN ELEMENTS) 

DADC 1 l=5.0F-4 
DAD < 2 ) *5 .OF— 6 
DAD(3)=5.0F-6 
0ADI4)*5.0E-6 
DAD{ 5)=S»OF-6 
DAD{6)=S.0E-6 


LC2=0 

APR1NT*60 60 60 60 60 60 
SPRINT = 60 60 54 60 60 60 

DEFINE GODDARD EARTH CONSTANTS 


GM=3.986032E+5 

FJ2=l*0823F-3 

FJ3=”2.3E— 6 

FJ4=-1.8£-6 

FJ5=0»0 

FL=298.3 

RE=6378.165 

CARD 1 - READ IN I.D. CARD - ANY INFORMATION IN COLS. 2-72 


READ 6002 

CARD 2 - READ IN CONTROL CARD 

COLS. 1- 3 TYPE OF INPUT (+01 = OSCULATING ORBITAL ELEMENTS 

+02 = INERTIAL POSITION AND VELOCITY 
IN KILOMETERS AND KM/SEC 
+03 = .INERTIAL POSITION AND VELOCITY 

IN VANGUARD UNITS > 

+04 * BROUWER MFAN ELEMENTS ) 


COLS. 4- 6 

COLS. 7- 9 

COLS. 10-12 
COLS. 13-16 


COMPUTE WORLD MAP - YES OR NO < YES IF MAP=+XX» NO IF 
MAP*+00 OR -XX) 

COMPUTE LOOK ANGLES - YES OR NO {YES IF LA=+XX» NS IF 
LA*+00 OR -XXI 

CHANGE EARTH CONSTANTS 
CHANGE TRUNCATION FACTOR 


READ 


6003»INPUT»MaP»LA»NCST »NERR»N0A* IRC 


TEST - HAVE ALL CASES BEEN RUN - YES OR NS 


IF UNPUT) 300,300,2 
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IF INPUT=+00 OR -XX* ALL CASES HAV£._BE£N RUN. 60 T0 300 (END 
FILE. REWIND AND UNLOAD A3 La IF UlPUT =+XX» PROCEED T0 NEXT CASE. 

TEST - CHANGE TRUNCATION FACTOR - YE* OR NO 

2 IF (NFRR) 4.4.3 

CARD 2A- (OPTIONAL) READ IN NEW VALUE OF TRUNCATION FACTOR IF 

NERR=+XX. IF N£RR=+00 OR -XX. PROCEED TO NEXT 
OPTION TEST. 

3 READ 6040, ERR 

TEST - CHANGF EARTH CONSTANTS - YES OR NO 

4 IF ( NCST ) 5.11.10 

IF NCST=+00» RETAIN STANDARD GODDARD EARTH CONSTANTS AND PROCEED 
TO NEXT STEP. 

5 IF (NCST+1 ) 7.6.7 

USE SJ RY PACKAGE CONSTANTS IF NCST = -1 

6 GM=3.9862688E+05 
FJ2=1.08219E-03 
FJ3=-2.285E-06 
FJ4=-2.123F-06 
FJ5=-2.32F-07 
FL=297.0 
RE=6378.388 

GO TO 11 

7 IF (NCST+2) 9.8.11 

USE GODDARD EARTH CONSTANTS WITH HARMONICS =0 IF NCST = -2 

8 FJ2=0.0 
FJ3=0.0 
FJ4=0.0 
F J5=0. 0 
GO TO 11 

USE INTERNATIONAL CONSTANTS WITH HARMONICS = 0 IF NCST = -3 

9 GM=3.98626873F+5 
FJ2=0.0 
FJ3=0.0 
FJ4=0*0 
FJ5=0.0 
FL=297.0 
RF=6378.388 

GO TO 11 

CARDS 28 AND 2C- (OPTIONAL) READ IN NEW SET ©F EARTH CONSTANTS 
IF NCST=+XX. 

10 READ 6004.GM.FJ2.FJ3.FJ4.FJ5.FL.RE 

CONVERT EARTH CONSTANTS 

11 GP(1)=GM 

GP ( 2 ) = • 5*F J2*RE**2 
GP ( 3 ) =-FJ3*RF**3 
GP (4 )=-. 375*FJ4«RE**4 
GP ( 5 )=-FJ5*RE**5 

PRINT ALL QUANTITIES ON OUTPUT TAPE A3. 

12 WRITE OUTPUT TAPE 3.6001 
WRITE OUTPUT TAPE 3.6002 

WRITE OUTPUT TAPE 3.6005 .ERR. RE. FL.GM.FJ2.FJ3.FJ4.FJ5 
WRITE OUTPUT TAPE 3 .6044.GP ( 2 ) >GP ( 3 ) .GP (4 ) >GP ( 5 > 

IF (SFNSP SWITCH 6) 13,913 

PRINT SAMF INFORMATION ON LINE IF SENSE SWITCH 6 IS DOWN. 

13 PRINT 6001 
PRINT 6002 

PRINT 6005 , ERR ,RE » FL » 6M.FJ2 . FJ3 » FJ4 , FJ5 
PRINT 6044, GPI2J »GP ( 3 > ,GP 14) ,GP ( 5 1 

913 IF ( NDA) 915,915.914 

914 READ 6050* (DAD(N), N=l»6) 

915 DA ( 1 )=DAD ( 1 ) 

DA(2)=DAO(2) 

DO 916 N=3..6 

916 DAtN)=DAD(N)*0. 017453292 
IF (IRC) 917,917,918 

917 IRC=50 - 

CARD 3 - READ IN EPOCH OF INPUT PARAMETERS-CALENDAR DATE (MONTH, 
DAY, AND YEAR) AND UNIVERSAL TIME (HOURS, MINUTES. AND 
SECONOS TO 3 DECIMALS OF A SECOND). 
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CARO A - READ IN PARAMETERS 


C 


918 READ 6006,NME.NDE,NYE.NHE.NMNE.TSE»(AI(N), N=l,6) 

PRINT EPOCH AND INPUT ©PTIQN ON 0UTPUT TAPE A3 

15 WRITE OUTPUT TAPE 3.6010, NME.NDE.NYE.NHE.NMNE.TSE 
WRITE OUTPUT TAPE 3.6008, INPUT 

IF (SENSE SWITCH 6) 16.17 

PRINT SAME INFORMATION ON-LINE IF SENSE SWITCH 6 IS DOWN 

16 PRINT 6010.NME.N0E.NYE.NHE.NMNE.TSE 
PRINT 6008. INPUT 

17 CONTINUE 

CONVERT EPOCH UNIVERSAL TIME IN HOURS. MINUTES. AND SECONDS 
TO EPOCH UNIVERSAL TIME IN RADIANS. 

TIMEO=HMSRZCNHE.NMNE.TSE) 

CONVERT EPOCH CALENDAR DATE TO EPOCH JULIAN DATE AT 0 HOURS 
UNIVERSAL TIME. 

DJO=DJUL(NME»NDE»NYEI 


CONVERT EPOCH UNIVERSAL TIME IN HOURS. MINUTES. AND SECONDS 
TO SECONDS. 


THE=NHE*3600 

TMNE=NMNF*60 

TSEP=THE+TMNE+TSE 

GO TO (18.20,22.930) , INPUT 


PRINT INPUT PARAMETERS ON OUTPUT TAPf A3 - INPUT OPTION 1 
OSCULATING ORBITAL ELEMENTS - 

1. SEMI-MAJOR AXIS IN KM 2. ECCENTRICITY 3. INCLINATION 4. RIGHT 
ASCENSION OF ASCENDING NODE 5. ARGUMENT OF PERIGEE 6. MEAN ANOMALY 
(ALL ANGLES I.E. 3.4.5. AND 6 ARE IN DEGREES). 


18 WRITE OUTPUT TAPE 3.6012 

WRITE OUTPUT TAPE 3 .6013 * ( AI f N) ,N=1 .6 > 

IF (SENSE SWITCH 6) 19.28 

PRINT SAME INFORMATION ON-LINE IF SENSE SWITCH 6 IS DOWN 


19 PRINT 6012 

PRINT 6013. (AI(N)»N= 1*6) 

GO TO 28 

PRINT INPUT PARAMETERS ON OUTPUT TAPE A3 - INPUT OPTION 2 
INERTIAL POSITION AND VELOCITY RECTANGULAR COORDINATES - 
IN KILOMETERS AND KILOMETERS PER SECOND. 

20 WRITE OUTPUT TAPE 3.6042 

WRITE OUTPUT TAPE 3.6043. (AI (N) »N=1 .6) 

IF (SFNSF SWITCH 6) 21.28 

PRINT SAME INFORMATION ON-LINE IF SENSE SWITCH 6 IS DOWN 


21 PRINT 6042 

PRINT 6043 »(AI(N) . N= 1.6) 

GO TO 28 

PRINT INPUT PARAMETERS ON OUTPUT TAPE A3 - INPUT OPTION* 3 
INERTIAL POSITION AND VELOCITY RECTANGULAR COORDINATES - 
IN VANGUARD UNITS. 

22 WRITE OUTPUT TAPE 3.6009 

WRITE OUTPUT TAPE 3 .6011 * ( AI t N ) .N«l *6) 

IF (SENSE SWITCH 6) 23,28 

PRINT SAME INFORMATION ON-LINE IF SENSE SWITCH 6 IS DOWN 


23 PRINT 6009 

PRINT 6011, (AI (N)»N=1.6> 

GO TO 28 

PRINT INPUT PARAMETERS - INPUT OPTION 4 - BROUWER MEAN ELEMENTS 

930 WRITE OUTPUT TAPE 3.6051 

931 WRITE OUTPUT TAPE 3 ,6013 . ( AI ( N) ,N = 1,6) 

IF (SENSE SWITCH 6) 932.28 

PRINT SAME INFORMATION ON-LINE IF SENSE SWITCH 6 IS DOWN 

932 PRINT 6051 

PRINT 6013, IAIIN1. N = 1.6) 

CONVERT INPUT PARAMETERS T© OSCULATING ELEMENTS 
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0 

0 

r» 

D 

n 


D 

D 

I) 

0 

D 

15 

C 

c 


c 

c 

c 


28 CALL PARA 1 INPUT , A I , A ,GM) 

CALL ELRVZ{RX,VX*A*PER,EN,GM,ERR) 

CALL BeRWR(DA,A, IRC.NN) 

VXE ( 1 ) =VX ( 1 ) 

VXE ( 2 ) «VX ( 2 1 
VXE ( 3)=VX l 3 1 
FN=SS( 1 ) 

DP=SS(2) 

0N=SSt3l 

PER=6. 283 185307 18/ EN 
PERM=PER/60.0 
PFRH=PFR/3600«0 
EN1=FN*206264. 806247096 
DN0DE=DN*495O355. 3499303 
DPER I =DP*4950355 .3499303 

TEST - IS WORLD MAP DES IRFD 

29 IF (MAP) 30*30 »33 

30 WRITE OUTPUT TAPE 3*6014 
IF (SENSE SWITCH 6) 31*36 

31 PRINT 6014 

32 GO TO 36 

CARD 5A - WORLD MAP IS OESIRED. READ IN CALENDAR DATE (DAY, 

MONTH, AND YEAR) AND UNIVERSAL TIME (HOURS, MINUTES* 

AND SECONDS T© 3 DECIMAL'S OF A SECOND) AT WHICH THE 
START OF dALCULAT ION IS DESIRED, CALENDAR DATE AND 
UNIVERSAL TIME AT WHICH THE TERMINATION OF THE 
CALCULATION is desired, and the DESIRED TIME increment 
OF THE CALCULATION IN SECONDS TO 3 DECIMALS OF A SECOND, 

33 WRITE OUTPUT TAPE 3.6016 

PRINT SAME INFORMATION ON-LINE IF SENSE SWITCH 6 IS DOWN 

IF (SENSE SWITCH 6) 34.35 

34 PRINT 6016 

35 CALL TIMEC(0J0.T5EP.WMAPS.WMAPF.WMAPDT) 

TEST - ARE STATION PREDICTIONS (LOOK ANGLES) DESIRED 


36 IF (LA) 37.37.40 

37 WRITE OUTPUT TAPE 3.6017 
IF (SENSE SWITCH 61 38*43 

38 PRINT 6017 

39 GO TO 43 

CARD 5B - STATION PREDICTIONS (LOOK ANGLES) ARE REQUIRED. READ 
IN CALENDAR DATE AND UNIVERSAL TIME AT WHICH THE START 
©F THE CALCULATION IS DESIRED, CALENOAR DATE AND 
UNIVERSAL TIME AT WHICH THE TERMINATION ©F THE 
CALCULATION IS DESIRED, AND THE DESIRED TIME INCREMENT 
OF THE CALCULATION IN SECONDS. 

40 WRITE OUTPUT TAPE 3.6018 

PRINT SAME INFORMATION ON-LINE IF SENSE SWITCH 6 IS DOWN 

IF (SENSF SWITCH 6) 41,42 ’ 

41 PRINT 6018 

42 CALL T IMEC (DJO.TSEP.XLAS *XLAF »DTLA) 

43 WRITE OUTPUT TAPE 3.6001 
WRITE OUTPUT TAPE 3.6002 
WRITE OUTPUT TAPE 3.6019 

WRITE OUTPUT TAPE 3 ,6010 ,NME, NDE ,NYE »NHE , NMNE * TSE 
PRINT SAME INFORMATION ON-LINE IF SENSE SWITCH 6 IS DOWN 

IF (SFNSE SWITCH 6} 44,45 

44 PRINT 6001 
PRINT 6002 
PRINT 6019 

PRINT 6010,NME,NDE.NYE,NHE,NMNE,T5E 

45 CONTINUE 

CONVERT OSCULATING ORBITAL ELEMENTS TO INERTIAL POSITION AND 
VELOCITY COORDINATES IN KM AND KM/SEC 

46 CALL ELRVZ(RX,VX,A,PER,EN,GM,ERR> 

R1=SQRTF( RX ( 1 > **2+RX ( 2) **2+RX (3 J **2 ) 

V1=SQRTF( VX ( 1 ) **2+VX ( 2 )**2+VX < 3 ) **2 j 

CONVERT TO VANGUARD UNITS OF LENGTH AND VELOCITY 

47 X01*RX (1 J/6378.388 
X02-RX ( 2 ) Z6378.388 
XQ3=RX(3 1/6378.388 
V01=VX ( 1 1/7.9054722668 
V02=VX<2)/7. 9054722668 
V03=VX (3 1/7.9054722668 
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R2=SQRTF (X01**2+X02**2+X03**2 ) 
V2=5QRTFtV01**2+V02**2+VO3**2 » 

CONVERT ANGLES (RADIANS) T0 ANGLES (DEGREES) 


C 

R 

D 

n 

n 

D 

D 


A01= A ( 1 ) 

A02=A ( 2 ) 

A03=A l 3 >*57.2957795130823 
A04=A (A >*57.2957795130823 
A05=A( 5 >*57.2957795130823 
A06=A (6)*57.2957795130823 

WRITE OUTPUT TAPE 3 IsOaLrXCI ) »X01«RX< 2 ) «X02*RX< 3) »X03 

WRITE OUTPUT TAPE 3 ,6047 , VX ( 1 ) » V01 »VX ( 2 ) , V02 ,VX( 3 ) »V03,Rl »R2 * VI , V2 

WRITE OUTPUT TAPE 3.6049 • [DAD( I ) , I = 1*6) 

Bl-AllO(l) 

R2=A110 ( 2 ) 

B3=A110( 3 ) *57.2957795 
B4=A110(4)*57. 2957-795 
B5=A110(5)*57. 2957795 

WRI TE^OUTPUT^TAPE 3 ,6048 , A©1 »B1 , A02 ,B2 »A03 ,B3, A04 »B4 , A05,B5 , AS6.B6 
WRITE 0UTPUT TAPE 3,6022, PERH*PERM,EN1,DN0DE»DPERI 
IF (SENSE SWITCH 6) 49,50 

PRINT SAME INFORMATION ON-LINE IF SENSE SWITCH 6 IS DOWN 

49 PRINT 6045 

PRINT 6046, RX(l) ,X01 ,RX < 2 > »X02 ,RX (3 ) ,X03 
PRINT 6047 ,VX I 1 ) , V01 , VX (2) ,V02,VXf3) ,V03,R1 ,R2 , VI . V2 
PRINT 6O48»A01»B1*A02»B2*A03»B3»A04»B4»A05«85»A06»86 
PRINT 6022 ,PrRH,P£RM,ENl,DN0DE»DPERI 

50 C0NTINUF 

53 l p (MAP) 199,199,100 

BEGIN WORLD MAP CALCULATION (N0 CALCULATION IF MAP = 0) 

SKIP A PAGE AND PRINT HEADING F0R WORLD MAP CALCULATIONS 


100 WRITE OUTPUT TAPE 3,6037 
WRITE OUTPUT TAPE 3,6023 

IF (SENSF SWITCH 6) 101,102 

101 PRINT 6037 
PRINT 6023 


INITIALIZE LINE COUNT AND DELTA T (DIFFERENCE BETWEEN 

WORLD MAP STARTING TIME AND EP0CH OF INPUT PARAMETERS IN SECONDS) 


102 LINES=1 

D DT IME5«WMAPS-WM APDT 

IF (SENSF SWITCH 1) 1030,103 
1030 PRINT 6025 
PAUSF 77777 

103 L1NES=LINFS+1 


C SKIP A PAGE AND PRINT HEAOING IF 50 LINES OF CALCULATION 
C HAVF BFEN printed 

c 

IF (LINES-50) 106,106,104 

104 WRITE OUTPUT TAPE 3,6037 
WRITE OUTPUT TAPE 3,6023 

- LINES=1 

IF (SENSE SWITCH 6) 105,106 

105 PRINT 6037 
PRINT 6023 

n 106 DTIMES=DTIMES+WMAPDT 

D TIME=TIMFO+DT IMES*0. 727220521 664304F-4 

D DDJO-INTFI TIME/6. 283185307179586) 

DJ=DJO+DDJO 

D TIME =ALLOTZ (TIME) 

C COMPUTE GREENWICH APPARENT SIDEREAL TIME AT TO + DELTA T 
C 

D EPHR = TIME * 3.81971863421 

D F-QR=£QN<DJ,EPHR»XX»XX»XX) 

D 5T=GASTZ(DJ»EPHR»EQR) 

CALL JULCAL(DJ»NM»ND,NY) 


c CONVERT UNIVERSAL TIME IN RADIANS TO HOURS, MINUTES, AND SECONDS 
C 

0 CALL RHMSZ(TIME»II»IH»IM»TS). 

C 

CALL BRWR2 ( DT IMES , EN2 ) 

SST*SINF(ST) 

CST=C0SF(ST) 

RG ( 1 1 =RX8 ( 1 )*CST+RXB ! 2 ) *SST 
RG(2)=RXB[2)*CST-RXBtll*SST 
RG(3)=RXB(3) 

D CALL VRDZ ( 1 »RG»GCLAT» GCL0N*R) 

C COMPUTE GEODETIC LATITUDE ©F SUBSATELLITE POINT 
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C COMPUTE HEIGHT OF SATELLITE ABOVE COMPUTATIONAL ELLIPSOID ALONG 
C NORMAL FROM SATELLITE TO ELLIPSOID 
C 

D GDLAT = GDLAT Z ( GCLAT » R , R E » FL , AL T ) 

C 

C CONVERT LATITUDE AND LONGITUDE IN RADIANS TO DEGREES* MINUTES* 

C AND SFCONDS 

C 

P T6CLON=GCL0N-3. 141592653589793 
IF (TGCLON1 1062*1062*1061 
D1061 GCLON=TGCLON-3. 141592653589793 
1062 CONTINUE 

D CALL RDMSZ (GDLAT • 1 1* 1PD* IPM,TPS) 

D CALL RDMSZ(GCL0N.II»ILD*ILM,TLS) 

C 

C OUTPUT PREPARATION 
C 

NYM19*NY-1900 

WRITE OUTPUT TAPE 3*6024»NM,ND*NYM19* IH* IM.TS* IPD* IPM.TPs* ILD* 

1 ILM*TLS«ALT 

IF ISFNSF SWITCH 6) 107.108 

107 PRINT 6024 *NM ,ND *NYM19 *IH*IM*TS* IPD* IPM* TPS . 1 LD» I LM» TLS ♦ ALT 

108 IF ( DT IMES-WMAPF ) 103*109*109 

109 IF (SENSE SWITCH 1) 110*199 

110 PRINT 6025 
PAUSE 77776 

C 

C END WORLD MAP CALCULATION 
C 

199 IF (LA) 1*1*200 
C 

C 8EGIN LOCAL STATION PREDICTIONS CALCULATION 
C (NO CALCULATION IF LA=0) 

C 

200 RFAD 9505*NLA*ICC1*MINV,XMAX 

IF (NLA) 1,1,2001 

2001 READ 9506*RDMAX,RDMIN*RA*DEC 

XMIN=MINV 

IF(XMAX) 902.902.903 
902 XMAX=1 000000 * 0 
903 IF(RA) 904,905,904 
D904 RAR=RA*. 0174532925 
0 DECR=OFC*. 0174532925 

D VXE(l) = COSF(DECR) * COSF(RAR) 

0 VXF ( 2) = COSF(DECR) * SINF(RAR) 

D VXF ( 3 j = SINF(DECR) 

D905 CALL VRDZ ( 1 , VXE * DECR * RAR * XXX ) 

RA= RAR»57. 2957795 
DEC=DECR*57. 2957795 
WRITE OUTPUT TAPE 3,9504 
IF (SENSE SWITCH 6) 201,202 

201 PRINT 9504 

202 DO 205 N=1 , NLA 

READ 6027.STATKN) *STAT2(N) .LOND.LONM.XLONS.LATD* 

1LATM , XLAT S , HGT 

901 WRITE OUTPUT TAPE 3. 6028, STAT1 (N) *STAT2 IN ) .LOND.LONM.XLONS.LATD* 
1LATM.XLATS.HGT 
IF (SENSE SWITCH 6) 203.2031 

203 PRINT 6028.STAT1 ( N) .STAT2 (N) .LOND.LONM.XLONS.LATD.LATM.XLATS *HGT 
2031 CONTINUF 

D COORD ( 1) = DMSRZ ( LAT D » LATM » XL ATS ) 

D COORD ( 2 ) = DMSRZ (LONO.LONM.XLONS) 

0 COORD ( 3 ) =HGT / 1 000 • 0 

O RLAT(N)=C0ORD(1 ) 

O RL^N ( N ) =CP0RD ( 2 1 

D CALL VFUZ( COORD, RE, FL.U) 

DO 204 J=1 *3 

204 SU(N,J)=U(J> 

205 CONTINUF 

WRITE OUTPUT TAPE 3,9507,MINV,XMAX,RDMAX,RDMIN,RA,DEC 
C 

C INITIALIZE LINE COUNT AND DELTA T (DIFFERENCE BETWEEN 
C LOCAL STATION PREDICTIONS STARTING TIME AND EPOCH OF INPUT 
C PARAMETFRS IN SECONDS) 

C 

LINFS^l 

LINE6=1 

D DTIMFS=XLAS-DTLA 
C 

C SKIP A PAGE AND PRINT HEADING FOR LOCAL STATION PREDICTIONS 
C PRINT OUT 
C 

WRITE OUTPUT TAPE 3*6038 
WRITF OUTPUT TAPE 3,9502 
IF(ICCl) 7004,7004,7005 
7005 WRITE OUTPUT TAPE 6*6038 
WRITF OUTPUT TAPE 6,9502 
WRITE OUTPUT TAPE 6,7500 
7004 I F (SENSE SWITCH 6) 2051,2052 
2051 PRINT 6038 
207 PRINT 9502 
205? CONTINUF 
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208 WRITE OUTPUT TAPE 3,9503. (STAT2U), I = l.NLA) 

IF (SENSF SWITCH 6) 210.2170 
210 PRINT 9503. (5TAT2C 1 1 » I = l.NLA) 

2170 IF (SENSE SWITCH 2) 2171.217 

2171 PRINT 6025 

" PAUSE 77775 

217 LINES=LINFS+1 

C SKIP A PAGE AND PRINT HEADING IF 50 LINES OF CALCULATION 
C HAVE BFFN PRINTED 
C 

9600 IF CLINES-40) 231.231.218 

218 LINFS=1 

WRITF. OUTPUT TAPE 3.6038 

WRITE OUTPUT TAPE 3.9503. (STAT2II) . I = l.NLA) 

IF (SENSE SWITCH 6) 220,231 
220 PRINT 6038 

PRINT 9503. (STAT2 ( I ) . I = l.NLA) 

231 IF UCC1) 7016.7016.7007 
7007 IF (LINE6-40) 7016,7016,7015 
7015 LINE6=1 

WRITE OUTPUT TAPE 6.6038 
WRITE OUTPUT TAPE 6.7500 
D7016 DTIMES=DTIMFS+DTLA 

D TIME=TIME0+DTIMES*0.727220521664304E-4 

D DDJ0=INTF(TIME/6. 283185307179586) 

DJ=DJO+l)DJO 

D TIME=ALL©TZ(TIME> 

c COMPUTE GREENWICH APPARENT SIDEREAL TIME AT TO + DELTA T 
C 

D FPHR = TIME * 3.81971863421 

0 EOR=EQNCOJ,EPHR.XX.XX,XX) 

D ST = GAST7 (DJ.EPHR.EOR) 

CALL JULCAL(DJ.NM.ND.NY) 

C CONVERT UNIVERSAL TIME IN RADIANS TO HOURS. MINUTES. AND SECONDS 

C 

D CALL RHMSZITIME. II. IH» IM.TS) 

NYM19=NY-1900 

C 

CALL 8RWR2 (DTIMES.EN2) 

5ST=SINF(ST) 

CST=COSF(ST) 

RGtl )=RXBf 1)*CST+RXB(2)»SST 
RG ( 2 )-RXB ( 2 ) *CST— RXB C 1 ) »S5T 
RG(3)=RXB(3) 

C 

KK=0 

DO 242 N=1,NLA 
DO 232 M=1.3 

0 232 PGU(M) =RG(M>-SU(N»M) 

D CALL R13ZIRTX.0.-ST.RGU) 

D DUMX=DOTZ(RTX,VXE) 

TESTA(N)=DUMX*57. 295780 
D R13A1=1»57079632679-RLAT (N) 

D R13A2=1 .57079632679+RLON ( N ) 

0 CALL R13Z(Z.R13A1»R13A2,RGU) 

D CALL VRDZ ( 2 .Z , ELEVAT , AZ I MUT .RANG) 

ELED t N ) =57.29578#ELEVAT 
AZ ID ( N )=57.29578*AZ I MUT 
RGEIN)=RANG 

IF \ELED(N)— XMIN) 233.234,234 
8 233 DATA(NI=APRINT 
GO TO 242 

234 IF ( TESTA (N)-RDMIN) 235.236.236 
B 235 DATA(N)=APRINT 
GO TO 242 

236 IF (TESTA(N)-RDMAX) 238,238.237 
B 237 DATA(N)=APRINT 
GO T® 242 

238 IF (RGE(N)-XMAX) 240,240,239 
B 239 DATA1N)=APRINT 
GO TO 242 

B 240 DATA(N)=BPRINT 
SENSE LIGHT 1 
IF tICCI) 242,242,241 
241 KK=KK+1 

RGFltKK)=RGEIN) 

FLEDKKK)sELFD(N) 

AZ I D1 ( KK ) =AZ I D ( N ) 

TESTA1 ( KK ) “TFSTA t N ) 

B STAT3IKK) = STATl(N) 

B STAT4CKK) = STAT2IN) 


242 CONTINUF 

IF (SENSE LIGHT 1) 243,2460 

243 IF (LC2-1) 245,244,245 

244 WRITE OUTPUT TAPE 3.9501 
LC2»0 

LINES =LINES+1 

245 WRITE OUTPUT TAPE 3.6052, NM.ND, NYM19, IH.IM.TS, (DATA(N) , N-1,NLA) 
lines* LINES+1 
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IF UCC1I 247 *247 >246 

246 WRITE OUTPUT TAPE 6>7501»NM,N0>NYM19»IH>IM> CSTAT3II J >STAT4(I) > 
lRGFltn.AZIDlUI »ELEOim.TESTAH IJ * 1 sl.KK) 

LINE6=LINF6+KK+1 
GO TS 247 
2460 LC2=1 
247 CONTINUE 

TF ( DTIMFS-XLAFJ 9600 >248 >248 
248 IF ISFNSF SWITCH 2» 249 >7010 
249 PRINT 6025 
PAUSE 77774 

7010 IF (ICCH 200>200>7011 

7011 FND FILF 6 
G® T0 200 

C 

C END L0CAL STATI0N PREDICT I0NS CALCULATION 
C <■ 

300 PRINT 6039 
FND FILF 3 
PAUSE 77777 
G® T0 10 
END 
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APPENDIX VII 

SOURCE DECKS OF SUBROUTINES 
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DATE 2/25/65 

FUNCTION ALLOT FORTRAN SOURCE PROGRAM 
CARDS COLUHN 
LI STB 
LABEL 

FUNCTION ALLOT [ X J 

VERSION OF 07/22/63 

FORTRAN FUNCTION 

FOR USE WITH FORTRAN 2 MONITOR ON IBM 7090, 7094 


REDUCES AN ANGLE OF ANY MAGNITUDE AND SIGN 3Y MODULUS 2 
AND ADDS 2 PI IF ANGLE IS NEGATIVE. THE RESULTING AN3L! 
POSITIVE BETWEEN 0 AND *2 PI RADIANS. 


X = ANGLE IN RAOIANS 


NAME = ANGLE IN RADIANS BETWEEN 0 AND ♦ 2 PI RADIANS 


STORAGE REQUIREMENTS 


NO ESTIMATE AVAILABLE 


2 ALLOT=MOOF(X,6.2fi31B53) 

3 IF (ALLOT) A, S, 5 

A ALLOTS ALLOT 4-6.2831853 
5 RETURN 
END 

FUNCTION ALLOT l F JRTRA ! SOURCE PROGRAM 

CARDS COLUMN 

LISTS 

LABEL 

FUNCTION ALLOT £ ( X ) 

VERSION OF 37/22/63 

FJRTRAN FUNGI ION 

FOR USE WITH FORTRAN 2 MONITOR JN IBM 7090, 7394 


REOJCcS AN ANGLE OF ANY MAGNITJOE AND SI 5N 3Y MOOULJS ? 
ANO ADDS 2 PI IF ANGLE IS NESATIV-I. THE AESJLTIN, ANGL! 
POSITIVE BETWEEN 0 AND *2 PI, RADIANS. 


X = ANGLE in radians 


NAME = ANGLE JN RADIANS BETWEEN 3 ANO »■ 2 PI RAOIANS 


ALLOTOD3 
ALL3T034 
ALLDT005 
ALL0T336 
4LL0T3D7 
ALLOT308 
ALL0T339 
PI ALL0T010 
I S4LLDT3 1 1 
ALL0T312 
- ALLOT013 
ALL0T31 A 
ALLDT015 
ALL0T316 
ALL3T017 
ALL0T31B 
ALLOT019 
ALL0T323 
ALL0T32 l 
ALLOTOZ2 
ALLOTD23 
ALLOT324 
ALL0TD25 
ALL0T326 
ALL0TD27 
ALL3T329 
ALL0TD29 
ALL0TD33 
4LL0T031 
ALL0TD32 
ALL0TD33 
ALL3T334 
ALL0T335 
ALL0T036 
4LL0T037 
ALL0TD38 
ALLOT 33 9 
ALL3T343 
ALL3T3AI 
ALL3T3A2 
ALLOTS A3 
4LL0T3A4 
ALL3T345 
ALL3T3AS 
ALL0TD5D 
ALLOT 353 
ALL0T05 A 
ALL0TD56 
ALL0T057 
1 ** ALL 0T35B 
ALL3T359 
ALLOT 353 
ALL OT 3 5 1 
ALL 01 3 52 
ALL0T3S3 
ALLOTOSA 
ALL3TZ33 
ALL0T231 
ALLOT! 32 


ALLOT 233 
ALL OT 2 3 5 
ALL 0T2 3 5 
ALL OT 2 35 
ALL3TZ37 
ALLOT! DM 
ALL0T239 

pi all or 2 1 3 

: i s all ot 211 
ALLOT 212 
ALL0T2 1 3 
ALLOTZ 1 A 
ALLOT! 15 
ALLOT! 1 6 
ALLOT!! 7 
ALL3TZI 9 
ALL3T219 
ALL OT! 23 

JN ALLOT22 1 
ALLOT 222 
ALL0T223 
ALLOT22 A 
ALL3T225 
ALL 0TZ26 
ALL0TZ27 
ALL3TZ2R 
ALL3TZ29 
ALL3TZ33 
ALLOT! 31 
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ACCURACY __ . 

INTERNAL ARITHMETIC IS PERFORMED IN DOUBLE PRECISION. 

REQUIRED .SUBPROGRAMS - FORTRAN 2 MON ITOR 
DHOD, IDFAD) 


STORAGE REQUIREMENTS __ 

6R WITHOUT REQUIRED SUBPROGRAMS 


ND ESTIMATE AVAILABLE 


PROGRAM MODIFICATIONS 

NO MODIFICATIONS TQ DATE 

*** START PROGRAM ****...*•**•*•**#*' 

2 ALLOT Z=MODF IX,6.2B3185307179586] 

3 IF { ALLQTZI 4,5,5 

A ALLOTZ=ALLOTZ+6. 283185307179586 
5 RETURN 
END 

FUNCTION ATANQ FORTRAN SOURCE PROGRAM 

CAROS COLUMN 

LISTS 

LABEL 

FUNCTION ATANQ(StC) 

VERSION OF 03/03/64 

FORTRAN FUNCTION 

FOR USE WITH FORTRAN 2 MONITOR ON IBM 7090, 7094 


ALLOT! 3 2 
_ALL0IZ33. 
ALL0TZ3 A 
ALL0TZ35 
4UL3XZ36. 
AU0TZ37 
ALLDTZ38 
ALL3TZ39 
ALLOTZAD 
ALLOT! A1 
. 4UJLLZA2. 
ALLOT! A3 
ALL3TZ44 
4LL.DTZ AS 
ALL0TZA6 
ALLOT! A7 
auorzis 

ALL0TZA9 

ALL3TZ50 

ALL0TZ51 

ALL3TZ52 

ALL0TZ53 

ALL0TZ57 

ALL3TZ60 

ALL0TZ61 

ALL3TZ53 

ALL0TZ6A 

ALL0TZ65 

ALL3TZ5S 

ALL0TZS7 

ALL0TZS9 

ALL3TZS9 

ALL0TZ70 

ALL0TZ71 

AT4NQ000 

ATAN3001 

4T4N3302 

AT AN3003 
ATAN300A 
ATAN30D5 
ATAN3335 
ATAN30D7 
ATAN3008 
ATAN3009 


PURPOSE 

COMPUTES THE ARCTANGENT OF AN ANGLE WITH PROPER ALLOCATION AT4N3313 
OF QUADRANT TO THE ANGLE BETWEEN 0 AND * 2 PI RADIANS. ATAN30I1 

ATAN3012 

CALLING SEQUENCE 4TAN3013 

NAME = ATAN3 IS,C) ATAN301 A 

AT4N33I5 

INPUT ATAN3316 

S = 0*SI Nt A1 ATA V3317 

C = D*C3S( AI AT AN331S 

WHERE D IS AN ARBITRARY POSITIVE CONSTANT IN3RNALLY 4TAN3319 


♦ 1.3J 


NAME = ANGLE A IN RADIANS BETWEEN 3 AND < 


USES FORTRAN MONITOR FUNCTION ATANF. TESTS THE SIGNS O c 
SINE AND COSINE, THEN ADDS OR SUBTRACTS 4PPR3PI ATE 
FRACTIONS OF 2 PI RADIANS TO ASSIGN ANGLE TO PROPER 
QUADRANT BETWEEN 0 AND t 2 PI RADIANS. 


RESTRICTIONS 


ATANQ ( 0/0 ] = 0 BY DEFINITION 


NO ESTIMATE AVAILABLE 


PROGRAM MODIFICATIONS 


IF (C) 198,109,116 


ATAN332D 
ATAN3321 
ATAN3322 
AT AN3323 
ATAN332A 
4IAN3325 
ATAN3326 
ATAN3327 
ATAN3328 
AT AN3329 
AT AN3333 
AT AN3331 
ATAN0032 
AIAN3333 
AT 4N3334 
AT AN3335 
A TAN3036 
ATAN3337 
AT AN3333 
ATAN0339 
ATAN3340 
ATAN3341 
ATAN3042 
ATAN3343 
AT4N3344 
ATAN3345 
AT AN3346 
ATAN3047 
ATAN3349 
ATAN3349 
A T 4N3353 
ATAN3351 
ATAN3355 
ATAN3358 
ATAN3059 
ATAN3364 
•ATAN33S5 
ATAN3366 
AT AN3357 
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100 IF IS) 102,104,106 

_1 02 ATANQ g 4.712 388 Jgfl 

RETURN 

104 ATANQ=0.0 

_ RETU RN 

"l06 ATANQ=1.570 796 33 
RETURN 

10B. IF. IS) .1 10., JL12,J. 1.4 

110 ADD=3.141 592 65 
GO TO 124 

1X2 AJANQx.3s.L41. 52Z. 65- 
RETURN 

114 ADD=*3.141 592 65 
GP.XP._liZ 

116 IF { S ) 118, 120, 122 

118 ADD=6.283 185 31 
... GO_TO.-132_ 

120 ATANQ=0.0 
RETURN 

J.22. A00=0.0 ... 

124 IF { ABSFI S )-ABSF I C) ) 126,128,130 

126 ATANQ= ATANFI S/C) +ADD 
RETURN 

128 ATANQ=0.785 398 163+AOD 
RETURN 

130 AT ANQ= 1.570. 796 33-ATANFIC/S ) t.ADD 
RETURN 

132 IF (ABSF(Sl-ABSFICJ) 126,134,136 

134 ATANQ=-0. 785 39B 163+ADD. 

RETURN 

136 ATANQ=-1 . 57079633-ATANF ( C/S) +AOD 
RETURN 
END 

» FUNCTION ATANZ FURTRAN SOURCE PROGRAM 

» CARDS COLUMN 

» LISTS 

* LABEL 

FUNCTION ATANZ(StC) 

C VERSION OF 07/22/63 

C FORTRAN FUNCTION 

; FOR USE WITH FORTRAN 2 HONITOR ON IBM 7090, 7094 

C PURPOSE 

COMPUTES AN ANGLE FROM ITS SINE AND COSINE AND PLACES THE 
C THE ANGLE IN A POSITIVE QUADRANT BETWEEN 0 AND ♦ 2 PI 

C RADIANS. 


NAME - ANGLE IN RADIANS BETriEEN 0 AND * 2 PI 1A0I4NS 

NAME IS RETURNEO TO CALLING PROGRAH IN DOUBLE PRECISION 
FORM. / 


NO ESTIMATE AVAILABLE 


ATAN3068 

ATAN307O 
ATANQ071 
ATAN30 72 
ATANQ073 
ATAN3374 
AT.ANQ375 
ATAN3076 
ATAN3077 
, AIA.NQa.tfl. 
ATANQ079 
ATANQ380 
.AT <010.351. 
ATANQ382 
ATANQ383 
ATANQ384 
ATAN3385 
ATAN3386 
ATANQ.037 
ATANQ388 
ATANQ3B9 
ATAN3390 
ATAN0D91 
ATAN3392 
ATAN3393 
ATAN3394 
ATAN3395 
ATAN3396 
ATAN3397 
ATANQ398 
ATAN3399 
4T4NQ100 
ATANZ330 
ATANZ031 
ATANZ332 

AT ANZ333 
4TANZ004 
ATANZ035 
ATANZ036 
ATANZ337 
ATANZ338 
ATANZ339 
ATA.NZ013 
ATANZ31 1 
ATANZ312 
ATANZ313 
ATANZ314 
ATANZ315 
ATANZ316 
4TA.NZ317 
AT ANZ318 
ATANZ319 
ATANZ323 
ATANZD21 
ATANZ022 
ATANZ323 
4TANZ324 
ATANZ325 
ATANZ326 
ATANZ327 
A T4NZ328 
ATANZ329 
AT ANZ 3 33 
AT ANZ 33 1 
ATANZ332 
ATANZ333 
AT ANZ334 
ATANZ335 
ATANZ336 
AT4NZ337 
ATANZ33S 
AT ANZ339 
ATANZ343 
AT ANZ341 
ATANZ3V2 
ATANZ343 
4T4NZ344 
' 4T4NZ345 
ATANZDA6 
AT ANZ347 
ATANZ34B 
AT ANZ349 
ATANZD53 
ATANZ35I 
ATANZ352 
ATANZD53 
AT ANZ354 
ATANZ355 
ATANZ359 
ATANZD52 
AT ANZ 3 63 
ATANZ365 




2 ATANZ=ATAN2F (S»C) 

. 3 If . I AIANZ L.-4, 5 1 5 

4 ATANZ-ATANZ4-6. 283185307179586 

5 RETURN 

.end . . 

SUBROUTINE B8RHR FORTRAN SOURCE PROGRAM 
PAUSE 

CARDS COLUMN 

LISTS 

LABEL 

SUBROUTINE BBRWRJ DA, AT, J , K }■ .. 


ATANZD66 
h»»ATANZ0 S7- 
ATANZD68 
ATANZ369 
. ATAMUtD- 
ATANZ371 
ATANZ072 
ATANZ073 
BBRWROOO 


CALLING SEQUENCE 

DIMENSION DAI 6) » ATI 6) 
CALL BBRWRIDA,AT', J,K) 


TINE BBRWRJ DA, AT, J,K}-.„ BB£H,R333 

BBRHR004 

VERSION OF 10/02/63 BBRWR335 

FORTRAN SUBROUTINE . BBRWR036 

FOR USE WITH FORTRAN 2 MONITOR ON IBM 7090, 7094 BBRWR037 

BBRWR338 

E BBRWR009 

COMPUTES BROUWER MEAN ORBITAL ELEMENTS FROM OSCULATING BBRWR310 

ORBITAL ELEMENTS BY HEANS OF AN ITERATIVE PROCESS. 8BRWR31 1 

8BRWR312 

G SEQUENCE 8BRWR313 

DIMENSION DAI 6} , ATI 6) 88RWR3 14 

CALL BBRWRI DA, AT', J, K) BBRWR015 

BBRWR316 
BBRWR3 17 

J = MAXIHUM NUMBER OF. ITERATIONS ALLOWED BBRWR318 

DA I 1 1 = TRUNCATION FACTOR FDR SEMI-MAJOR AXIS - KILOMETERS B8RWR319 

DA 1 2) = TRUNCATION FACTOR FOR ECCENTRICITY - DIMENSIONLESS 8BRWR023 

DA ( 3 1 = TRUNCATION FACTOR FOR INCLINATION - RADIANS BBRWRD21 

DA(41= TRUNCATION FACTOR FOR RIGHT ASCENSION OF ASCENDING BBRWR022 

NODE - RADIANS BBRWR023 

DAI5)= TRUNCATION FACTOR FOR ARGUMENT OF PERIGEE - RADIANS BBRWR024 

DAI 51= TRUNCATION FACTOR FOR MEAN ANOMALY - RADIANS B8RWR025 

BBRWR025 

TRUE VALUES OF OSCULATING ORBITAL ELEMENTS BBRWR327 

BBRWR328 

AT 1 1 1 = SEMI-MAJOR AXIS - KILOMETERS BBRWR029 

AT 1 2 1 = ECCENTRICITY - DIMENSIONLESS 8BRWR333 

AT 1 3 1 = INCLINATION - RADIANS BBRWR331 

AT 1 4 ) = RIGHT ASCENSION OF ASCENDING NODE - RADIANS BBRWR332 

ATI5 1= ARGUMENT OF PERIGEE - RADIANS BBRWR333 

AT (6 1 = MEAN ANOMALY - RADIANS B0RWRO3 A 


= NUMBER OF ITERATIONS REQUIRED FOR CONVERGENCE 


BROUWER MEAN ELEMENTS 

AU3(1)= SEMI-MAJOR AXIS - KILOMETERS 

A1 13 I 2 1 - ECCENTRICITY - DIMENSIONLESS 

A113m= INCLINATION - R40IANS 

AU3!4)= RIGHT ASCENSION OF ASCENDING NODE - RADIANS 

A113I5I= ARGUMENT OF PERIGEE - RADIANS 

A1 10(61= MEAN ANOMALY - RAOIA.NS 


FOR THE 1ST APPROXIMATION, THE MC AN CLEMENTS ARE ASSUMED B8RWRD5 A 
TO BE EQUAL TO THE TRUE OSCULATING ELEMENTS. IN S J3SEQ JfcNT3«RWR055 
APPROXIMATIONS, the MEAN ELEMENTS ARE SET EGJAL TO THE 88RWRD56 

MEAN ELEMENTS OF THE PREVIOUS APPROXIMATION PLUS THE BBRWR057 

ALGEBRAIC DIFFERENCE BE f WEEN THE VALUES OF THE TRUE BBRWRJ58 

OSCULATING ELEMENTS MINUS THE VALUES OF THE OSCULATING BBRWR059 

ELEMENTS COMPUTED BY SUBROUTINES BRWR1 AND 3RWR2. B3RWR0S3 

SJ8R0JT INES BRWRI AND 8RWR2 COMPUTE OSCULATING ELEMENTS BBRWR3S 1 

ACCORDING TO DIRK BROUWER’S ARTIFICIAL SATELLITE THEORY 8BRWRD52 

WITHOUT DRAG. BBRWR063 

THIS METHOD SUGGESTED BY OR. HANS HERTZ, DATA SYSTEMS BBRWR3S4 

DIVISION, GODDARD SPACE FLtGHT CENTER. BBRWR365 

B8RWR066 

RESTRICTIONS BBRWR357 

FOR SHALL ECCENTRICITIES, THIS SUBROUTINE WILL NOT BBRWR368 

CONV e RG£. ERROR WARNING IS PRINTED ON LINE ANO UN TAPE HBRWR0S9 

UNIT A3 9EF3RC RETURNING TO CALLING PROGRAM IF CONVERGENCE BB-WR073 


IS NOT OBTAINED AFTER J ITERATIONS. 

ACCURACY 

SEVERAL TEST CASES WERE RUN WITH ECCENTRICITIES IN THE 
NEIGHBORHOOD OF .1 AND CONVERGENCE WAS REACHED AFTER A 
5 ITERATIONS. 


REQUIRED SUBPROGRAMS - OTHER 
07/22/63 ALLOT 
07/22/63 ALLOTZ 


BBRWR071 
B3RWRD72 
B3RWR073 
BBRWR374 
OR BBRWR37S 
BBRWR076 
B8RWR377 
3BRHR378 
BBRWR379 
BBRWR390 
88RWR091 
BBRWR332 
BBRWR033 
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c 

~c_ 


03/03/64. . ATANQ 
07 /17/63 — BRHftl 


01/31/64 BR*R2 
03/02/64 .ELRV. 


STORAGE REQUIREMENTS 

. . . . 1 46 HOUT_.RE.QlilB.EO. SliBEWlGRAHS- 


. .HP. _EmaAIE_AltMLAflJ.£- 


BBRWR384 
BBRWR385 
B8RWR086 
BBRWR337 
-BMHR3P8 
B8RWR399 
BBRWRD90 
BBRHR391 
BBRHR392 
8BRWR393 

_BMWAai4. 
BBRHR095 
B8RWR399 
JU&1LU22 
BBRWR103 
8BRWR136 

BBRWR137 

8BRWR138 

100 FORMAT I//24H ******* WARNING ******* /77H NO CONVERGENCE IN 8BRWBBRH8109 

„ 1R SUBROUJJNE.. B ROUKEB-iiEAN -Ei-EKEtU 5L ARE NQI ACCURATE- .BBBH3110 

B8RHR11 1 

DIMENSION DUMl(lOO) 

DIMENSION DA 1 6) » AT{ 6 1 1 All n> ruiuviim . inti "* T,t i ™* T 


PROGRAM MODIFICATIONS 
• START PROGRAM *Ji*»*A! 


COMMON DUM1 , A110,DUMX, AC 


DO 10 N=1 i 6 
10 A110INJ ? AT(N) 


K = K * 1 
IF CK-JJ 4,4,3 

3 WRITE OUTPUT TAPE 3,100 
PRINT 100 

RETURN 

4 DO 5 N=1 ,6 

DAT(N) = ATINJ - ACINI 

5 TDAT(N) « ABSFIDAT(N)) 

DO 6 N=l,6 

IF (TDAT(N)-DAIN)) 6,6,8 

6 CONTINUE 

7 RETURN 

8 DO 9 N-1,6 

9 AllO(N) = AllOlNI + DATIN) 

A110I3) = ALLOT I A1 1013) ) 

AU0(M=ALL0TUL10I4I) 

A11Q(5I=ALL0T(A11QI5) ) 

A110I6) =ALLOT ( A1 10(6 ) ) 

60 TO 1 
END 

SUBROUTINE BRrfRl 
CARDS COLUMN 
LISTS 
LABCL 

SUBROUTINE BRWR1 
VERSION OF 07/17/63 

rORTRAN subroutine 

FDR USE WITH FORTRAN 2 MONITOR 3N IBM 7090, 


709A 


BBRHR112 
BBRWR113 
BBRWR114 
BBRWR115 
BBRWR1 16 
BBRWR1 17 
B3RWR118 
BBRWR119 
BBRWR120 
BBRrfRl 21 

BBRWR123 
BBRWR12A 
8BRWR125 
B8RMRI26 
BBRHR127 
0BRWR12B 
B8RWR129 
BBRWR130 
BBRWR1 3 1 
BBRWR132 
BBRWR133 
BBRWR1 34 
BBRWR135 
BBRrfRl 36 
BBRWR137 
BBRWR138 
BBRWR139 
B8RrfR143 
BBRWR141 
BBRWR142 
8BRWR143 
8BRWR14A 
8BRWR145 
BBRWRIAS 


BRrfR1333 
BRrfRl334 
BRWR1036 
BRWR1336 
8RrfRl337 
BRrfRl338 
BRwRl339 
BRrfRIDIO 
BRrfR1311 
BRrfRl 312 
BRrfRl 313 
DO NDTBRrfR131A 
BRrfRl315 
BRWR1D16 
BRrfRIOl 7 
3RrfRL319 
BRWR1319 


PURPOSE 

BRWR1 ANO GRWR2 CONVERT BROJHER MEAN ORBITAL ELEMENTS TO 
OSCULATING ORBITAL ELEHCNTS ANO TO POSITION ANO VELOCITY 
COMPONENTS. SECULAR ANO LONG PERIOD COEFFICIENTS ANO OTHER 
INTERMEDIATE QUANTITIES WHICH ARE FUNCTIONS OF THE MEAN 
ELEMENTS AND THE EARTHS GRAVITATIONAL HARMONICS ONLY (1.5. , 

VARY WITH TIME AND ARE CONSTANT FOR ANY GIVEN SET DF MEAN 
ELEMENTS) ARE COMPUTED IN BRWR1 AND PLACED IN COMMON. BRWR2 CAN 
THEN BE USEO TO CALCULATE OSCULATING ORBITAL ELEMENTS FOR ANY 
SPECIFIED VALUE OF DT (TIME ELAPSED FROM EPOCH OF MEAN 
ELEMENTS). COMMON IS USED TO TRANSFER INPUT TO SUBROUTINE BRrfRl 
FROM CALLING PROGRAM, CONSTANTS AND INTERMEDIATE CALCULATIONS = R0M3RWRI 02 0 
8RWR1 TO BRWR2, AND TO RETURN OUTPUT FROM 8RWR2 TO CALLING PR 03RAM3RWR1021 

BRrfRl 322 

DUM1 IS A DUMMY VARIABLE INSERTED AS FIRST VARIABLE IN COMMON IN BRWR1323 
BRWRl AND BRHR2 TO PERMIT SHIFTING OF VARIABLES IN COMMUN AREA IF BRrfRl 32A 
DESIRED. THE DIMENSION OF 0UH1 KAY BE CHANGED BUT SHOULD BE THE 8RrfRl325 
SAME IN SUBROUTINES BRWRl, BRWR2, AND THE CALLING PR33RAH. BRWR1326 

BRWR1327 
BRWRl 32 3 
8RWR1329 
BRWR1330 
BRrfRl 33 1 
8RMR1332 
ETERS BRWR1333 

' BRrfR1334 
NS BRWR1335 

NS BRrfRl 336 


INPUT VIA COHHON 

BROUWER MEAN ELEMENTS 
A113I1I = SEMI-HAJOR AXIS 
A113I2I s ECCENTRICITY 
A113I3) = INCLINATION 

AllOIAI = RIGHT ASCENSION OF ASCENDING NODE 
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c 

_c_ 

c 

c 

c. 

c 

c 

c. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


AL 10(5 ) = ARGUMENT OF PERIGEE. - RADIANS 

A 1 1 0 I 6 ) a HE AH ANOMALY - RADIANS 


EARTHS GRAVITATIONAL CONSTANTS 


GPI21 

GPU) 

GP14) 

GPU) 


=~GMt PRODUCT OF G,THE GAUSSIAN CONSTANT SQUARED, ANO 
H, THE HASS OF THE EARTH) - KM. CUBEO/SEC- SQUARED 
_ = K2_ ). ..ZONAL HARMONIC _ - KM, SQUARED 

= K3 ) COEFFICIENTS OF THE - KH. CUBED 

= K4 ) EARTHS GRAVITATIONAL • KH. 4TH POWER 

.= K1L...EIELD - : JtMi- 5IH..R0HER 


• TRUNCATION FACTOR REQUIRED IN 
FUNCTION jXKBR „ 


OUTPUT VIA COMMON 


- SOLUTION OF THE PROBLEM OF ARTIFICIAL 
.SATELLITE THEORY WITHOUT DRAG - 
THE ASTRONOMICAL JOURNAL, VOL. 64, NO. 9, 

NOVEMBER 1959, PAGES 378 - 397 


METHOD 


REFER TO MATHEMATICAL DESCRIPTION IN SUBPROGRAM WRITEUP 


RESTRICTIONS 


C 

C ACCURACY 

C 

C REQUIRED SUBPROGRAMS - FORTRAN 2 MONITOR 

C SORT, COS, SIN 

C 

C REQUIRED SUBPROGRAMS - OTHER 

C NONE 

C STORAGE REQUIREMENTS 

C 666 WITHOUT REQUIRED SUBPROGRAMS 


C TIMING 

C NO ESTIMATE AVAILABLE 

C 


C PROGRAM MODIFICATIONS 

C NO MODIFICATIONS TO DATE 

START PROGRAM •**•••* 

C 

2 DIMENSION DUM1U00) 

3 DIMENSION AIL0(6)»GPI5),All(6), AU6),AC6),RX( 3)*VX(3),ELI13)»FI9) 
lB(9>,Cm>,0<23),G(13>,X<28>,S(3> 

A COMMON DJMl,AU3,GP,ERR,All,Al,A,RX,VX,EN0,t:Al,DlE»31I,4Ll.UL, 

1 Gl.UG,Hl,UH,S,EL»A2, A3,B, C',D,5,X , F 

C COMPUTE INTERMEDIATE QUANTITIES 

5 A2=A110(l)*.2 

6 A3=AU0ID»A2 
FID = A110I2) 

7 F { 2 ) =A1 13 (2)*A1L012) 

8 F(3> = Ff 2D-FI2) 

9 F(A)*FI2)+F(3) 

10 F15)=9.»F(2) 

11 FI61=4.«-F{4) 

12 FIT) =2.+FI 2 ) 

13 )(1IM.-FI2I 

14 B( 2 ) = SQRTF(S( 1) I 

15 B(3)*BI 1 1 *8(2) 

16 B( 4 ) *8 ( 3 ) *B( 3 ) 

17 B(5I=9.*0I1 I 

18 BI6J=25.*BID 

19 H(7)*126.«H(1) 

20 BI9I-1./BI3) 

21 B(9) = l»/(Bt D»8( 1) I 

22 0(1 )*COSF( A1 101 3D 

23 D(2)-D(D+D(1> 

24 01 3) = 0< 1)*0( 1) 

25 n(4)sOt3)*0(3) 

26 Cl l)=GPI2)/A2 

27 C(2) S 1«5*C(1)*8I9) 

28 Cl 3 ) = • 4 166666 7£- 1 »C I 2 ) *C (21 

29 CI4)=.9375»GPI4J/IA2»A2*8( 1)»B(4) ) 

30 CI5)=.83333333E-1*CI2) 

31 C 1 6 ) s .66666667* C 1 4 ) /Cl 2 ) 

32 CI7) = .25*GPI3>/tGP(2)»A110(D»8IU ) 

33 CI8I=.46S75*3P(5)/(GP(2) »A3»B14> ) 

34 CI9J = • 16666667 *C I 2) 

35 Cl 10)=C19 )«0( 2) 

36 01 51=1- —0 ( 3) 

37 0(6)=3.»D(3)-1. 

38 0(71=5- -01 31-1. 


BRWR1337 
BRWRI33S . 
BRWR1339 
BRHR1D40 
.BMS13*1_ 
BRWR1342 
BRWR1343 
BRWR1344 
BRWR1345 
BRWR1346 
.8RW.R1347. 
BRWR134S 
BRWR1349 
.BJUR135J) . 
BRWR1351 
BRWR1352 
BRWR1353 
BRWR1354 
BRWR1D55 
BRWR1356 
BRWR1357 
BRWR1358 
BRWR1359 
BRWRL360 
BRWR1361 
BRWR1362 
8RWR1363 
BRWR1354 
8RWR1355 
BRWR1366 
BRWR1367 
BRWR1368 
BRWR1369 
8RWR1370 
BRWR1371 
BRWR1372 
BRWR1373 
BRWR1374 
BRWR1375 
8RWR1376 
BRWR1377 
SRWR137B 
BRWR1379 
BRWR1333 
BRWR1336 
BRWR1337 
BRWR1339 
BRWR1390 
•BRWR139I 
8RWR1392 
BRWR1393 
, BRWRl 3 94 
BRWR1395 
8RWR1396 
BRWR1397 
3RWR139B 
RKWR 1 399 
BRWRl 130 
BRWR1131 
BRWRl 132 
8RWS1133 
8RWRL134 
BRWR1135 
BRWRU36 
BRWRl 1 37 
BRWR113S 
BRWRl 1 39 
BRWRl 113 
BRWR1 111 
BRWR1112 
3RWR1113 
BRWR1U4 
BRWR1115 
3RWR1116 
BRWR1117 
BRWRl 1 13 
BRWR1119 
BRWR11Z3 
BRWR1121 
8RWR1122 
BRHRU23 
BRWRD24 
BRWR1125 
BRWR11Z6 
8RWR1127 
BRWRl 1 2 B 
BRWRl 129 
BRWR1133 
BRWRl 131 
BRWRl 132 
BRWRl 133 
8RWR1134 
BRWRU35 
BRWRl 136 
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c 

c 

c 


c 

c 


c 

c 

c 


39 D{8 ) 1 

40 0(9)= 


41 DUO) 
.42 DUD 
_4.3..DU_21 


s.»p(a)/oi7) 


D( 8 )-D{ 6) . . .. 

3 C 1 5 ),*J ID J ~±t±±t *DJ3 ) *J)J 1 0 

)6666667*C 1 9 ? 3 , *P( lP)~ , 2t ) 


.l9444444*CJ8lMDUOJtD.U0^-D(5)) 

=3.-l6,*D(3)7D(7)tD.(9) 

*CI 8)«DU4) 

'EIM-QJ15I 

= 0.33333333^DU3J •_ 

= .1 Z962963»(DUS)»PU5)-CI6)) 

=3,»D( 5 ) 

D(6) +D( 6) „ 


44 Dt 13) 

45 DU4) 

.._46_DJ15J 

47 DU6) 

^8 DU7) 

50 0IL9I 
. 51 D120) 

„5.2„DJ21). 

53 D( 22) 

54 DC 231 
..55.EIBj=l 

56 F 1 9 ) = 

57 Gil) 

- .5 8_ 6.1 21 

59 G(3 ) 

60 G( 4) 

61 G( 5} 

62 G( 6} 

63 G17) = 

.64 G(8)=< 

65 G(9) 

66 GUO) 

67 GUI) 

68 G( 12) 

69 GU3)=l 

COMPUTE *MEAN* MEAN MOTl'oV ' 

70 £NO=SQRTF (GPID/A3) 

COMPUTE COEFFICIENTS OF SECULAR TERMS 

71 SI 1)=EN0* 1 1 . + B( 2 ) » I C12) »DI 6)+Cl 3) * ( 16.*B ( 2)-l5.+8( 6) M 30. 
1-90.*BU) )»DI3) + UD5. + 144.*BI2) + B16))*DI4) )+Cf4)»F(2)»I3*- 

. 2+35. •014)))) 

72 S(2)=EN0.lC(2)*D(7H-C(3)*(24*»BI2)-35.3-B(6)H90.-192.»B(2) 
lDf3)-*-(385.4-36Q.«B( 2 ) +45. •BI1))*DI4) )<-.33333333«CI4) • 1 21.-B 
2IBl7)-270. ).*DI3) + I 3B5.-l89.JtBI 1) )*D( 4) ) ) 

73 SI3)=EN6»{4.«0U)*(CI3)»IBl5)-5.+12-*8l2)-DI3)*I35.<-36.»B( 
lBU)))t.33333333*CI4)*(5.-3-*BUn*(3.-7.»0t3) ) 3 -Ct 2 ) *DI 2 » 

COMPUTE COEFFICIENTS OF LONG PERIOD TERMS 


CU0)*SQRTF(O(5D 
4»«C 19 ) *DI 5) 

PI3 )*( 2. +FI4 1) 

I2.*5.*FI2))*DI8)-D(9)»FI3)*DI3).. 

SINFIA110I3)) 

■GU)»G( 11 

AUDI 2 ) *D(1 ) 

GI3I.DU) 

Gt3)/Gtl) . . 

G(4)/GI1) 

BUI'GIl) 

Gtn/Auo.m 

A110I2)*GU) 

=G(3 )*GI 3) 
buj;au5.(2? 

=.5«Gl 11) 

G(1 1 J *C(9) 


.BKWR113.7 

BRHR 1133 

.BRWR1139 

3RK81140 

BRWR 1141 

BRWR1142 

BRHR1143 

BRWR11 44 

.BRHR 1145 

BRHR 1146 


MHUL« 

BRHRU49 

BRHR115Q... 

BRWR11S1 

BRHR1152 

BRHR1 154 
BRHR1155 
-BR HR 1156 
BRHRU57 
8RWRU58 
BRHJU159 
8RHR1160 
8RWRU61 
. 8F1HS1152 
BRWR1163 
BRHR1164 
BRHRU65. 
BRiJRl 166 
8RHR1167 
BRHR1168 
BRHRU59 
BRWRU70 
BRHR1171 
8RHRL172 
BRHR1 173 
8RrfRll74 
96. *8(2)8 RWR1175 
30. »DI3)BRHR1176 
BRWR1177 
-B 1 7 ) ) • BRHRU78 
BRWRU79 
BRWR11B0 
2 ) *-5. * BRrfRltSl 
BRWR11B2 
BRWRll S3 
3RHR1184 


74 ELU) S 8(3)*D( ID 

75 £Ll2)=8t2)*GI8).(-C(7)-t4.FF(5) 1*0(12)) 

76 EU3)=Gl9)*8t3)*DU3) 

77 EU4)*.5»C{6)«lFm-3.*F(8)+F(9> )-.41666667£-l*C ( 2) ■ ( F ( 7) -11 . * 
1FI8)+5.*FI9) ) 

78 EL(5)=Ct7)»{GU)/FU)-6t6))tDU2)*{ (G(8)-G(6n*Ft6)t3{9)*I2S.0f 
lF(Sm-GI4)«G(D»DU6) 

79 ELI6)=GI9)*(DI 18 )*G( 10J-DI 17 ) • 1 3.0*FI 3)-GU0) /G 1 2 ))J 

80 EU7l=G|3).A110(2).tCI6)*Dtl4)-C{5)*(5.*D(l4)-4. )) 

81 EL(8)=G(5)*tCt7DF(6)-Dtl2)+GI2)»D( 16)) 

82 EL(9)=6(5)*FI2)*I-D{ 17)-D( 1 8 ) *G( 2 ) ) 

83 ELU0>=8U)*FI l)*DUl> 

84 ELI ll)=G(71*tCl7J+FI6)*D(12) ) 

85 ELU21=-FI2»*G(7)*0U3) 

86 ELI 13)=-GI3)/GI 7) 

87 RETURN 
END 

SUBROUTINE 6R.WR2 FORTRAN SOURCE PROGRAM 

CARDS COLUMN 

LISTS 

LABEL 

-SUBROUTINE BRWR2 l OT , 6N21 


BRWR1135 
BRWRH36 
BRWR1137 
BRWRilSB 
8RHR1139 
BRriRU 90 
BRrfRl 1 9 l 
6RHR1192 
BRWR1193 
BRHR1194 
BRWRU95 
BRWR1196 
8RrfRl 1 97 
8RrfRl 1 93 
BRWRU99 
BRriRl 230 
BRrfRIZOl 
8RHR1202 
3RHR2000 
BRNR2O01 
BRWR2002 


C 

C 


C 

c 


c 

c 


VERSION OF 01/31/64 

FORTRAN SUBROUTINE 

FOR USE WITH FORTRAN 2 MONITOR ON IBM 7090, 7094 


PURPOSE 

CALLING SEQUENCE 

CALL BRWR2 I OT , EN2 ) 


INPUT 

OT = TIME ELAPSED FROM EPOCH OF MEAN ELEMENTS - SECONDS 
SEE SUBROUTINE BRWR1 FOR INPUT VIA COMMON 

OUTPUT VIA COMMON 

OSCULATING ORBITAL ELEMENTS AT TIME T = EPOCH TIME OT 

All) = SEMI-MAJOR AXIS - KILOMETERS 

At 2 ) = ECCENTRICITY - DIMENSIONLESS 

A( 3) = INCLINATION - RADIANS 

AI4) = RIGHT ASCENSION OF ASCENDING NODE - RADIANS 

AIS) = ARGUMENT OF PERIGEE - RADIANS 

AI6I * MEAN ANOMALY . - RADIANS 


BRWR20D4 
3RrfR2005 
BRWA20D6 
BRWR20D7 
BRHR2003 
BRMR2D09 
BRHR201 0 
8RHR2D1 1 
BRKR2012 
BRWR2013 
BRHR2D14 
BRHR2015 
BRMR2016 
BRMR2017 
8RWR2313 
BRWR2019 
BRiiR2020 
BRrfR2D21 
8RHRZ322 
BRHR2323 
BRrfR2024 
BRWR2025 
8RWRZD26 



c 

«L 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c< 

c 


c 


c 

c 


0 

0 

0 

D 

D 

0 

3 

D 

3 


THE 3 RECTANGULAR COORDINATES OF POSITION 


THE 3 RECTANGULAR COMPONENTS OF VELOCITY 


VXIl) 
VX 1 2 1 
VXI3). 

REFERENCE 

METHOD 

RESTRICTIONS 

ACCURACY 


REQUIRED SUBPROGRAMS - OTHER 
07/22/63 ALLOT2 
07/22/63 ALLOT 
03/03/64 ATANQ 
03/02/64 ELRV 
09/12/63 XKEP 


NO ESTIMATE AVAILABLE 


PROGRAM MODIFICATIONS 


START PROGRAM < 


2 01 MENS ION 0UMII100) 

3 DIMENSION A110l61,GPt5),Allt6),Al(6), AI6),RX(3),VX(3) ,EL(13) ,F 
l B[9)>C( 101,0(23) iG(13)|X(2a),S( 31 

4 COMMON 0UM1,A110,GP,ERR( AU,A1, A, RX, VX, ENO , EC A 1 ,0IE,3l I ,AL1,UL 
1 Sl»UG,Hl,UH,S f EL,A2,A3,B,C»D,G,X,F 

COMPUTE SECULAR TERMS 

A1106 = AL10I 6 1 
A 1 105 - AllOt 5) 

A1104 * A1 10 1 4) 

51 = SIX) 

52 “ S(2) 

53 = SI 3 ) 

0 A 1 106 = Al 106 
DAU05 = AllOS 
0A1 104 = Al 104 
DSI = SI 
DS2 = S2 
US 3 = S3 

6 Al 16 = 0 A 1 106 + OS1*OT * EN2«DT»*2 

7 Al 1 5 = DA1105*-0S2*Df 

8 A114 = 0A1 104tOS3»DT 

9 All t fa 1 s ALLOT 2 1 Al 16 1 

10 Al 1 1 51 = ALLOT/ ( A115) 

11 Al 1 (4) = ALLOT Z t A 1 1 4 1 

12 Al 1 ( 3 1 = A 1 1013) 

13 AH(2)=A110(2) 

14 Alltl)“4llO(l) 

COMPUTE LONG PERIOD TERMS 

15 X(1)=A11(5)+A11(5) 

16 X l 2 1=X ( 1 1 ♦ Al 1 1 5 1 

17 X(3)=S1NF(X(1) 1 
13 X(4)=C0SF(Allt5) ) 

19 Xt 5) =C0SFCX( 21 1 

20 Al(6)-All(6)+CL( I)«Xl3)+ELt2)»X(4)^EL(3)»X(5J 

21 Al ( 5 ) = A1 1 (5) *EL14 ) «X 1 3)+EL 1 5)*X 1 4) *EL 1 6)*Xt 5) 

22 AH4)=A11 I41*ELl 7)*X13)+EL( 8 ) «X 1 4) *EL 1 9 ) *X( S ) 

23 DIE = ELI10)»C3SFCXI1))+EL(11)*SINF(A11(5))*EL112)*SINF(X12)) 

24 D1I“CL(13)»01E 

25 All 3) *A11 ( 3) +D1I 

26 Alt2)=Allt2)*01E 

28 AL l a ALL3T ( Al { 6) ) 

29 Cl “ALLOT { Al ( 5 > ) 

30 HI “ALLOT I Al ( 4 1 ) 

COMPUTE SHORT PER100 TERMS 

31 ECAl“XK6P(ALl,A110t2)*X(6),Xt7) .ERR) 

33 Xm = l.-AU012)»X(7) 

34 X19 1 = 1 ./X ( 8 1 

35 Xll01=Xt9)*XI9> 

36 X(ll)-X(9)*Xt 101 


BRHR2027 
_BRWR 23 ^.. 
8RWR2329 
BRWR2030 
BRWWD .31 
BRHR2332 
BRUR2033 
BRWR2334 
BRMR2035 
BRWR2336 
BRMR203J. 
BRWR2338 
BRWR2039 
BRH.R2340 
BRWR2341 
BRMR2042 
BRWR2D43 
8RWR2344 
8RWR2045 
BRKR2345 
BRWR2347 
BRWR2348 
BRHR2349 
BRMR2D50 
BRHR2351 
BRrfR2352 
BRHR2353 
BRHR2354 
BRMR2355 
BRHR2D56 
BRHR2357 
BRMR2358 
BRHR2059 
BRWR2366 
BRWR2367 
BRWR2371 
>*8RrfR2372 
BRWR2373 
BRHR2374 
19) *BRrfR2375 
BRdR2D76 
BRHR2377 
BRHR2D78 
BRWR2079 
BRWR2393 
BRWR2391 
BRHR2092 
BRWR2393 
BRWS2384 
BRHR2D35 
BRHR2336 
8Ri)R2337 
BRWR2388 
BRWR2399 
BRrfR2390 
BRWR2391 
BRrfR2392 
BRHR2393 
8RWR2394 

3RrfRZ396 
8RrfR2397 
BR»(R2)93 
BRWR2399 
BRWR2133 
BRWR2131 
BR«IR2132 
RRHR2133 
BRrfR2l34 
3RrfR2l35 
BRWR2136 
BRWR2137 
BRWR213B 
BRrfR2139 
BRHR2113 
BARR2111 
BRrfR2U2 
8RRR21 1 3 
3RrfR2U4 
BRRR2U5 
BR/IR2 116 
BRriR21 1 7 
BR<4R2U8 
BRWR2119 
BRRR2120 
BRWR2121 
BRMR2122 
BRRR2123 

BRWR2124 
BRrfR2 125 
BRRR2125 
BRrfR2127 
BRWR2128 
BRMR2129 
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37 XU2)*X<6{*Xm*Bm.., 

38 XU3)*X{9)MXm-AH0I2)) 

X12 = X{ 12) 

DX12 = X12 

X13. » X ( 13 ) 

DX13 = X13 

XU4) = ATANQ{DX12,DX13) 

_^9-X.(.X5J=Gl±Gl. 

41 XJ16)=X(15)+X(14) 

42 XU7>=XU6)+X(14) 

_ A3 X ( 1 8 ) = X ( 171+X114I 

44 X{ 19) *=S INF) X( 16) ) 

45 X(20)=SINF(XIL8) ) 

-46^i2U=CQ5FJX(17J.l 

47 Xt22)=D(6)*(X(U)-B{8>) 

48 X(23)=0(19)»X(2U 

49 X124) =AUO( ?L*±3^0SJLU aM)-±mSFJX(JL8lU 

50 X{25)=X(9)+B(1)»X(10) 

51 X(26)=Gtl3)»(0(20]*Xtl2}>(X( 25)j*l. )+DI 19 ) • l { 1.-XI25) )»X{19)* 

- —1 (X< 2 5 ) + . 3 3 3 33_3 331* XJ.2JU.1 ) 1 

52 X(27)=6**(X{ 14)-ALl+A110 1 2) »X( 12) ) 

53 X(28)=3.*tSINF(X(l7n + A110[2)*XU9)H-A110[2)*X{20) 

COMPUTE OSCULATING 'ELEMENTS 

54 AtlJfAU9m*Il.tC{UflX(22|±X(HL*)LL231).l 

55 At 2 ) = AL10I 21+D1E+GI i2)»IC(l)*(X(22)+Xl23)»(XIll)-B{9)))-0I23) 
1X124) )‘ 

56 A{.3)=A110(3)tQntD(22).(3.»XJ2U t XL24U 

57 UL= AL1-B ( 2) *X ( 26) 

58 UG=* Gl+Xt26)*C(9)*IDt7)«X)27)+0(21)*X)28)) 

59 UH= HI -Cl 10 ) »{ X ( 27 ) -X( 28 ) ) 

60 A( 6 )= ALLOT { UL ) 

61 A) 5 ) = ALLOT IUG) 

62 A(4)=ALL0TIUH> 


COMPUTE POSITION AND VELOCITY COMPONENTS 

63 CALL ELRV ( RX , VX , A , P , EN, GP t 1 ) , ERR ) 

RETURN 

END 

FUNCTION OJUL FORTRAN SOURCE PROGRAM 

CARDS COLUMN 
LI STB 
LABEL 

FUNCTION DJUL(NM,ND,NY) 

VERSION OF 07/22/63 , 

FORTRAN FUNCTION 

FOR USE WITH FORTRAN 2 MONITOR ON IBM ,7090, 7094 


_BRH82I3.0 

BRtfRgU.L. 
BRHR2132 
BRHR2133 
BRHR2134 
BRHR2I35 
8RHR2L36 
_BRMS2137„ 
BRHR2138 
BRWR2139. 
BRH RZ1 40 . 
BRWR2141 
BRWR21.42 
BRHR2143 
BRHR2I44 
8RMR2145 

B.Rj<Ril.4.6_ 

BRWR2147 
BRWR2148 
BRHR21 49 
8RWR2153 
BRWR2151 
. BRHR21 52 
BRHR2153 
BRWR2154 
BRrIB2155 
I* BRWRZ156 
BRWR2157 
.BRWR2150 
BRWRZ159 
BRWR2150 
BRWR2161 
BRMR2162 
BRWR2163 
BRHR21S4 
BRWR21S5 
BRMR2I66 
8RRR2167 
BRWR2168 
BRWR2169 
BRWR2170 
OJUL 000 
DJUL 001 
OJUL 002 


= CALENDAR MONTH 
= CALENDAR DAY 
= CALENDAR YEAR 


NAME = JULIAN DATE AT 0 HOURS UNIVERSAL TIME 


THE NUHBER OF DAYS WHICH HAVE ELAPSED FRUH 12 HOURS DJJL 028 

UNIVERSAL TIME JAN. D, 1800 ARE COUNTED A, NO ADDED TO THE DJJL 029 

JJLIAW OATE OF 12 HOJRS UNIVERSAL TIME OF JAN. 0, 1800. DJJL 030 

OJUL 031 

CTIONS DJJL 032 

OATE RESTRICTED TO LIE BETWEEN JANUARY 1, 1801 AND DECEM3ERDJ JL 033 


NO ESTIMATE AVA I L ABLE 



2 DIMENSION RMI12) 

5 “ rm( ir«o7o 

6 RH(2)=31»0 
..JLMi 31=28 t <L_ 

8 RHI4)=31.0 

9 RM15)=30.0 
_1.Q_RMJ6L=31 T CL 

U RM(7) =30*0 
12 RM(8)=31.0 
l?.RMI9)«31.p 

14 RMI 10 ) =30. D 

15 RMI 1 1 ) =31.0 

16 RMI 12) =30. 0 

17 Y=NY-1800 

18 YL=INTFIIY-l.O)/4tOJ 

19 YC = INTF t IY+9 9.0}/l 00 •OJ-l.O 

20 RY= Y-YL 

21 DJUL=RY*365.0+YL*366.0-YC+2378495.5 

22 T0=ND 

23 DO 24 N=1»NM 

24 DJUL=DJUL+RMIN) 

25 IF ( NH-2 ) 29,29,26 

26 IF IY-100.0) 27,29,27 

27 IF ( XMQDF t NY,4 ) ) 29,28,29 

28 DJUL=DJUL+1.0 

29 0JUL=0JUL*TD 
RETURN 

END 

FUNCTION 0MSRZ FORTRAN SOURCE PROGRAM 

CARDS COLUMN 

LIST8 

LABEL 

FUNCTION DMSRZIID, IM,AS) 

VERSION OF 07/22/63 

FORTRAN FUNCTION 

FOR USE KITH FORTRAN 2 MONITOR ON IBM 7090, 7094 


DJUL 057 
OJUL 058 
DJUL 060 
DJUL 061 
LtO'lilL—O 5 2_ _ 
OJUL 063 
DJUL 064 
OJUL 065 
DJUL 066 
OJUL 067 
JUUL..368. . 
OJUL 069 
OJUL 070 
DJUL 07.1 
OJUL' 072 
OJUL 073 
DJUL. 074 
OJUL 075 
DJUL 076 
DJUL 377 
DJUL 078 
DJUL 079 
DJUL 030 
DJUL 031 
OJUL 082 
OJUL 033 
DJUL 334 
DJUL 085 
DJUL 036 
DJUL 037 
DJUL 088 
OJUL 089 
DJUL 393 
DJUL 091 
DJUL 092 
DJUL 393 
DMSRZ300 
DHSRZ031 
DMSRZ002 


= NUMBER OF DEGREES IN ANGLE OR ARC 

= NUMBER OF MINUTES IN ANGLE OR ARC ' 

= NUMBER OF SECONDS IN ANGLE DR ARC 


N4M£ = ANGLE OR ARC IN RADIANS 


ACCURACY I 

WHEN NECESSARY, INTERNAL ARITHMETIC IS PERFORMED IN 00U3LE i 
PRECISION SO THAT THC VALUE OF THE OUTPUT ARGUMENT IS [ 

AVAILABLE TO CALLING PROGRAM IN DOUBLE PRECISION. r 


NO ESTIMATE AVAILABLE 
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PROGRAM HOP IF If. AT IDN 5 


NO MODIFICATIONS TO. DATE 


> START PROGRAM, < 


,.DHS8Z3il 
. .DHSR2066 
>»»PMSRg35?.. 


2 AD* ID. 

3 AH«IH— 


4 ASfSIGNEI AH, ADI 

5 A ^ 7 S *^|j|«^g 51ta9 ^, 0E x 


AH».29Q6a8208665?216E~ 


0HSRZ36B 

DH5RZ359 

... _imS3.Z0T.CL 

„ DHS3ZDTX. 

DMS31D7Z 

_JmSAZ373 


ARS*, 484813GB 11Q9536Q£z5_ 

KE1UKN 

END 

FUNCTION DQJZ FORTRAN _S_a UR C 6 PROGRAM 

CARDS COLUHN 

. . -LIST? 

LABEL 

1 FUNCTION D0T2C X t Y) 

" ' "vERsYoVof' 7/22/63 

COMPUTES THE „ ANGLE 8EDl£EN.JIf£CI0RS_X.JMJf^ 

INPUT, OUTPUT, AND INTERNAL ARITHMETIC OPERATIONS 

are all PERFORMED .IS BQUBLKjejtEC 


.OMSRZlTjt 

DMSRZ375 

DM S R2 076 - 


VECTOR X IN. AN Y UNIT S., , — 

VECTOR Y IN ANY UNITS, N3T NECESSARILY THE SAME 
OMITS AS VECTOR X* 


OOTZ = ANGLE IN RADIANS BETWEEN X AND Y. 

DQTZ LIES BETWEEN .0 AND. t PI RADIANS, 


C 

C REQUIRED SUBPROGRAMS 

C 

C NONE 

C 

0 2 DIMENSION X(3!,Y{3I 

0 3 C=(xm*Y(i}+xm*Yt21+XI3J*Y(3)I/US0RTFIxa>*»2*Xt2)**2*X{3)*«2) 

1 ) • ISQRTFI Y(l)**2+Yt 2) **2+Y( 3)*»21 ) ) 

D A » 1.0 * C*C 

Q A * ASSFCA) 

0 AS 55 SQRTF(A) 

D 5 D0tZ=ATAN2F(S,C) 

6 RETURN 


C 


C 


C 


C 

c 

c 

c 


SUBROUTINE ELRV FORTRAN SOURCE PROGRAM 

CARDS COLUMN 

LlSTB 

LABEL 

SUBROUTINE ELRV(X,VX#A»P, EN» GM,ERR) 

VERSION 3F 03/02/6 A 

FORTRAN SUBROUTINE 

FOR USE WITH FORTRAN 2 MONITOR ON IBM 7090, 7094 


CONVERTS OSCULATING ORBITAL ELEMENTS INTO GEOCENTRIC 
EQUATORIAL INERTIAL RECTANGULAR COORDINATES OF POSITION 
AND VELOCITY. 


CALLING SEQUENCE 

DIMENSION XI33,VXI3I,AC6} 

CALL ELRVtX,VX,A,p,£N»GH,ERR) 

INPUT 

All! = SEMI -MAJOR AXIS 

A! 2 ) = ECCENTRICITY - DIMENSIONLESS 

AI3I * INCLINATION - RADIANS 

41 41 * RIGHT ASCENSION OF ASCENOINS .NODE - RADIANS 

AIS1 * ARGUMENT OF PERIGEE - RADIANS 

4IA» = MEAN ANOMALY - RADIANS 

GH = THE PRODUCT OF G, THE GAUSSIAN CONSTANT SQUARED, 
AND M, THE HASS OF THE EARTH 
ERR = TRUNCATION FACTOR REQUIRED IN FUNCTION XKEP 
IN RADIANS 


OUTPUT 

mi 

. XI2) THE 3 RECTANGULAR COORDINATES OF POSITION 
XI3I 


VX I 2) THE 3 RECTANGULAR COMPONENTS OF VELOCITY 
VXI31 


P * ANOMALISTIC PERIOD 

EN * HEAN ANGULAR MOTION 
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ELRV 000 
ELRV 03 I 
ELRV 332 

ELRV 533 
ELRV 334 
ELRV 335 
ELRV 336 
ELRV 337 
ELRV 038 
ELRV 339 
ELRV 310 
ELRV 311 
ELRV 312 
ELRV 313 
FLRV 314 
ELRV 315 
ELRV 315 
CLRV 317 
ELRV 318 
ELRV 319 
ELRV 323 
ELRV 321 
ELRV 322 
ELRV 323 
ELRV 324 
ELRV 325 
ELRV 326 
ELRV 327 
ELRV 323 
ELRV 329 
ELRV 333 
ELRV 331 
ELRV 332 
ELRV 333 
ELRV 334 
ELRV 335 
ELRV 336 
ELRV 337 
ELRV 338 
ELRV 339 
ELRV 343 
ELRV 341 
ELRV 342 
ELRV 343 


UNITS OF INPUT AROUHSK tS^MI^^NO GM ARE ARBITRARY 
UNITS OF OUTPUT ARG UMENT |^X»^VXt P t^AND EN WILL DEPEND 


RESTRICTIONS 

ECCENTRICITY. MU ST BE LE5.5_TjjA1 L,Q, 


REQUIRED SUBPROGRAMS - FORTRAN 2 MONITOR 
SQRT, SINE, COS 


NO ESTIMATE AVAILABLE * 


PROGRAM MODIFICATIONS 

*** START PROGRAM **•******►«•*»•**••****•*•*****•»********«******* 

DIMENSION XI 31 1 VX ( 31 1 At 6 ) 

3 E=XKEPlAl&l,At2I,SE f CE,ERR) 

A Xi=i.0-4t 2I*C£ 

5 X2=l.O/Xi 

6 R=AI11*X1 

7 X3=SQRTFt 1 . 0 — A ( 21**2) 

8 RT5MA=SQRTFtGM*Atm 
SA = SINFIAISH 

SB = SINFtA(3)l 
SC * SINFIA(A) 1 
CA = COSFt At S 1 1 
CS = COSFt At 31 ) 

CC = COSFt At All 

COMPUTE POSITION COORDINATES 

Q1 s Am«tCS~At21) 

02 =* All) «X3*S£ 

V = (H*CA ~ 02»SA 
H * Q2*CA t 0 1 * S A 
2 « CB*rf 

xm * c;*¥ ** sc*z 
xt 2 ) = c:»z ♦ sc*v 

X I 3 I a SB*W 

COMPUTE VELOCITY COMPONENTS 

aoi « -rtgma»se 7R 

0D2 * RT3MA»X3*CE/R 
v = gDl»C» - «02*SA 
w = «02*C% + 001 »SA 
l = C6*« 

VX 1 11 = CC*V - SC»£ 

vxi2i = cc»z + sc*v 

VXU1 = SB*W 

RT3M a S'JRTFIGMl 
RT A a SORTF (AID) 

FN * RTGM/IRTAtAfin 
P s 6.281 185 31/EM 
RETURN 
END 

SUBROUTINE ElftVZ FORTRAN SOURCE PROGRAM 

CAROS COLUMN 

LISTS 

LABEL 

SUBROUTINE CLRV2(X,VX.A,P,CN»GM,ERRI 

VERSION 3P 33/32/64 

FORTRAN SUBROUTINE 

FOR USE WITH FORTRAN 2 MONITOR ON IBM 7093, 7394 

PURPOSE 

converts osculating orbital elements into ^ejcsntri. 

C3U6T0RI4L HERT1AL RECTANGULAR COORDINATES 3* PUSITION 
ANO VELOCITY. 


CALLING SEQUENCE 
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ECRV 044 
_JE.LM.JL45. 
ELRV 045 
ELRV 347 
EL64-3L8 
ELRV 349 
ELRV 3S0 
ELV 051 
ELRV 052 
ELRV 053 
ELRJL.3.54 . 
ELRV 355 
ELRV 356 
..ELRV. 357 
ELRV 358 
ELRV 359 
ELRV. 060 
ELRV 061 
ELRV 052 
ELRV 363 
ELRV 354 
ELRV 365 
ELRV 365 
ELRV 357 
ELRV 358 
ELRV 359 
ELRV 370 
ELRV 371 
ELRV 372 
ELRV 376 
ELRV 379 
ELRV 333 
ELRV 385 
**£IRV 385 
ELRV 387 
ELRV 388 
ELRV 339 
ELRV 390 
ELRV 391 
ELRV 332 
ELRV 393 
ELRV 394 
ELRV 395 
ELRV 396 
ELRV 397 
ELRV 098 
ELRV 099 
ELRV 130 
SLAV 131 
ELRV 102 
ELRV 133 
ELRV 104 
ELRV 135 
ELRV 136 
ELRV 137 
ELRV 133 
ELRV 139 
ELRV 113 
ELRV III 
ELRV 112 
ELRV 111 
ELRV 114 
ELRV 115 
ELRV 1 1 6 
ELRV 117 
CIRV 119 
ELRV 119 
ELRV 123 
ELRV 121 
CLRV 122 
ELRV 123 
ELRV 124 
ELRV 125 
ELRV 126 
ELRV 127 
ELRV 128 
ELRV 129 
ELRV 133 
CLRVZ333 
SLRV2331 
6LRV2332 

SLR VZ333 
6LRVZ334 
CLRV2335 
6LRV2335 
ELRVZ337 
ELRVZ333 
ELRVZ339 
ELRVZ313 
GIRVZ31I 
ELRVZD12 
FLRVZ313 
ELRVZ314 



-C- 

e. 


c . 
. JL 


> SEMI-MAJOR .AXIS 

■ ECCENTRtCnr_^_J. 


iLAWZ215. 
9LRVZS1& 
^LRVZ317 . 
-ULVSZ018 
:LRVZ319__ 

„ . .. ELRVZ020 

- DIMENSIONLESS ELRVZMl. 


At A) ;_RI5Ht .ASCEHSIQM.OF,..ASCtNBI J SCtJ<OOE_^ RADIANS. . 

A{51 = ARGUMENT J3F. PERIGEE.. _ .ARABIANS 

At 61 ° MEAN ANOMALY - RADIANS 


.EULYZ023. 

ELRVZ32L4.., 

ELRV232S 


' THE eaooyCX-OJE_.G* ,IH£_ 5AM5SlANj;ONSTAfiT SQUARED, 
JNO__!i,_« HASS OF THE EARTH 


ELRWB26 
EiR.VZ32t . 
ELRVZ328 


ELBVZ329 . 
ELft¥Z33.!»_ 
. EL1WZ331 


UNITS OF INPUT ARGUKENT.S_AI LL.AND GM ARE ARBITRARY ELRVZ332 , 

BUT MUST BE MUTUALLY .CONSISTENT. ELRVZ333 

AVAlLAg.U^.tL.CLALLl.SG_e^QfiMtLJLN..... ..EL.RVZ33.A_ 

DOUBLE PRECISION. FORM.,. „ ELRVZ035 

ELRVZ336 

r — £LMMBT_ 

Xtll ELRVZ338 

X(2I THE 3 RECTANGULAR COORDINATES OF POSITION ELRVZ039 

XL3_> . .. _ .. .... ... JUUEtUlP , 


VXUI 

VXL2J _ T HE 3 RECTANGULAR COHPONE NfS OF VELOCITY^. 
VXt3I 


UPON THE UNITS EMPLOYED FOR At 


X, Pjl. fl 

ii aWd 


ELRVZ3A1 

ELRVZ3A2 

-.ELRVZJ)^. 

ELRVZDAA 

ELRVZ0A5 

ELSVZ34S... 

ELRVZ347 

ELRVZOAB 

ELRyZ3A9 

ELRVZ350 


REFER TO HATHEH ATJ CAL..0ESCR I SJJQ.N IN SUBPROGRAM HRfTEUP 

restrictions 

ECCENTRICITY MUST BE LESS THAN 1.0. 

ACCURACY 

REFER TO ACCURACY TESTS IN SUBPROGRAM WRITEUP. 

INTERNAL ARITHMETIC IS PERFORMED IN DOUBLE PRECISION. 

REQUIRED SUBPROGRAMS - FORTRAN 2 MONITOR 

tDFHP) , tOFADI * tOFOP)*OEXPI2,DSQRT»DSI N.OCOS, ID C SB) 


I ESTIMATE AVAILABLE 


OUTPUT ARGUMENTS ARE RETURNED TO CALLING PROGRAM IN DOUBLE ELRVZGSi 
FORM.. . . • ELRVZ352 

ELRVZ053 

REFERENCE ELRVZ35 A 

jtEFER TO ^MATHEMATICAL. DE?CRie.U0« IN SUBPROGRAM WRJTEUP ELAVJ95.5 

ELRVZ356 
ELRVZ057 
ELRVZ053 
ELRVZ359 
ELRVZOSO 
EL.RVZ341 
ELRVZ3S2 
ELRVZ0S3 
ELRVZ3SA 
ELRVZ3S5 
ELRVZ366 
ELMVZ367 
ELRVZ3SB 
ELRVZ3S9 
ELRVZ370 
ELRVZ3TI 
ELRVZ372 
ELRVZ373 
ELRVZ37A 
ELRVZ375 
ELRVZ376 
ELRVZ377 
ELRVZ378 
ELRVZ332 
ELRVZ3S5 
ELRVZ3SS 
ELRVZ39I 

••»•■■»«*»«»****»*•**** •**»»***-»»»«*ELRVZ392 

ELRVZ393 
ELRVZ39A 
ELRVZ39S 
ELRVZ39S 
ELRVZ397 
ELRVZ39B 
ELRVZ399 
ELRVZ133 
ELRVZIDI 
ELRVZ132 
ELRVZI03 
ELRVZ13A 
ELRVZID5 
ELRVZ136 
ELRVZ137 
ELRVZ1 39 
ELRVZ109 
CLRVZliO 
ELRVZill 
ELRVZilZ 
ELRVZH3 
ELRVZUA 
ELRVZH5 
ELRVZ116 
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PROGRAM MODIFICATIONS 


>* START PROGRAM *#»****••** 
DIMENSION X(3) • VX I 3 ) , A16) 

AIsAIl) 

A2-M2) 

A3*AI3> 

AA=At4> 

A5MI5J 


A6*A(6) 

A £=XK£PZ t A&, A2 1 S£* CE , ERR I 

7 Xl=tI.O-*AC 2J»CE 

8 X2= l.O/Xl 

9 R=AUJ*X1 
DUMl*t.0-A2*-2 

10 X3aSQRTFI DUH1) 

11 RTGMA=StIRTFtGH*Al) 

SA - SINFIA5I 

SB * SINFIA3I 
SC =• SINFIAAJ 
CA a CGSFCA5J 
CR a COSFI A3 J 
CC « COSFI AAJ 

COMPUTE POSITION COORDINATES 





STORAGE RCQU I REGENTS 
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sm = sirtfiui 

Ctl) = C3SFIU) 

S 1 3 1 = 2.9>SIl)*C(i) 

C t 3 ) = C(1J **2-SC 1 1 ••Z 
SF * SINF(F) 

CF * C3SF< F ) 

S(25J= 2-0»$F«CF 
C2F « CF**2-SF»*2 
SO * SI.NFIOI 
CO = C3SF ID) 

S(14]* 2.0*S0*C0 

C20 » C0**2-S0«*2 

S ( 4 1 = $1 25 I »C( 3) +C2F »S<3) 

C ( 4 ) = C2F *C131-SCZ51*S(3) 

AL = S C 4 1 *C20 

AL1 = C(4) «S( 14 I 

AC 2 - S ( 4 1 • S I 14 J 

AL3 = C|4)«C20 

SC21 = AL -AL1 

CC2) * AL3+AL2 

S ( 2 1 ) — AL +AL1 

C(161= AL3-AL2 

S(5) = SINFIELI) 

CL1 = C0SF1ELI) 

S ( 28)— 2.0»S(5)«CL1 
C2L1 = CLi*»2-S(5)**2 
S (6 ) = SINFCEL) 

CL = C3SFIEL) 

S(22) = 2.0»S16)»CL 


E QM 142 
EON 143 
EON 144 
EON 145 
EQN 146 
EON 147 
EON 148 
EQN 149 
EQN 153 
EON 151 
EON 152 
EON 153 
EON 154 
EQN 155 
EON 156 
EQN 157 
EQN 15B 
EON 159 
EON 153 
EQN 151 
EQN 152 
EON 153 
EON 154 
EQN 155 
EON 155 
EON 157 
EQN 158 
EQN 159 
EON 173 



C2L = Cl**?-Sl6)**2 

SIB) . = S { 2 5 1*C.U LtC 2P fSi XL 

C (6) * C2F *CU)-$lZ5)*Stl) 
BE = St 2) *CL1 
6E1 = Cj2)*S|§) __ 

BE2 = S 1 2) «S 1 5) 

BE3 = Cl 2) *CL1 
St7 1 = BE ±BEL 
Cl 5 ) = BE3-BE2 
SC LOI = BE -BE1 

0.19 L* be3±bej_ 

GA = StA)*CL 
GAl = Ct A) »5 16) 

GA2 f S( A)f St6)-_ , 

GA3 = CIA) *CL 
S 1 9) = GA +GAI 


C17) = GA3-GA2 
St 13) = GA -GAl 
C 1 10 ) = GA3+GA2 
Stll)= St6)*C2P-CL *3J1A.L 
CT = CL *C2D+S( 6) *St IA1 
St 12 > = S 1 8 ) *C2D-Cl 6) *S 1 1A) 

C ( 9 ) = Ct 6) *.CZD+S ( 8 1 tS 1 141 
DE = St 1 ) *CL 
OEl = Ctl)*SC6> 

0E2 = S(l)*S{6) 

DE3 = C(1)*CL 
S 1 15)= DE + DE1 
Clll)= DE3-DE2 
S( 16)“ DE -OEl 
C 1 12) = DE3+DE2 
S 1 17) = St 21 ) »CL -C(16)*S|6) 

Ct 15)= C( 16) »CL +Sf 2 1 ) *S ( 6) 

S ( 18 ) = S ( 8 1 *C2L-C 1 6 ) *S122) 
Ct 13)= Ct 6) *C2L + St8) *St22) 
St 19)= SI 22 ) *C2D-C2L »StlA) 
EP = SIS) *CL 
EPl * C 1 6) »S 1 6 ) 

EPZ = St8)*S(6) 

EP3 = Ct6)«CL 
St20>= EP +EP1 
CtlA)= EP3-FP2 
S127)= EP -FP1 
Ct 19)=EP3*CP2 
St23)= S ( 2 ) »CL +C 1 2 ) *St 6) 

Cl 171= Ct 2) *CL -S 1 2 ) »St 6) 

S 1 2A) = S ( A ) *C2L tCI A ) *S t 22 ) 

C C 18 ) = CtA)*C2L -St A)*St 22) 

S ( 26) = St25)*C2D -StlA)*C2F 
St 29) = S I 2 ) *C2L1+Cl 2) *St 28 ) 
ZE = St 1 1 » CL 1 
ZE1 = Cll)*S(5) 

St30)= ZEtZEl 
S133)= ZE-ZEl 
AMU = SI 1 ) *CT 
AMU1 = Ctll-Stll) 

St 311“ AMU-AHUl 
St 32)= AMU+AHU1 
S t 3A) = St 22) *C2F-C2L*S( 25) 


DEFINE CJNSTANT COEFFICIENTS DF SINE AND COSINE TE*HS ON FI 1ST 
PASS ONLY 


IF (TEST) 
l TEST = ♦ 
SCFI2I = - 
SC F ( 3 ) = ♦ 
SCFtA) = - 
SCF ( 5 1 = ♦ 
SCFt 6) = + 
SCFC7) = - 
SCFI8) * - 
SCFt 9) = - 

scrtio)= ♦ 
scFtm= - 

SCFt 12)= * 
SCF 113)= ♦ 
SCF 1 1 A ) = ♦ 
SCFt 15) = * 
SCF ( 16) = - 
SCF ( 17 ) = 
SCF 1 18 ) = 
SCF 1191= 
SCF (29)= 
SCF 121 )= 
SCF 122 ) 

SCF ( 23 ) = 
SCF (2A)= 
SCF 125)= 
SCF t 26 ) = 
SCF 1271= 

scrt28)= 

SCFC29I® 
SCF t 30 ) “ 


1.3 

1.2729 
3.2388 
3.2037 
5.1261 
3.0675 
3.3A97 
0.33A2 
3.3261 
3.9219 
3.31A9 
0.012A 
O.OUA 
3.0063 
3.0358 
0.0357 
3.0352 
3.03AS 
3.09A5 
3.33AA 
3.0332 
0.0328 
3.0326 
3.3326 
3.0025 
0.0321 
D .0019 
0.0316 
0.0315 
0.0015 


EQN 171 
EQ5L 172 
EQN 173 
EON 17A 
EQN . 175 
EQN 175 


EQN 

EQN 

EQN 

EQN 


177 

178 

179 

180 


EQN 

EQN 

EQN 

EQN 

EQN 

EQN 

EQN 


192 

193 
19A 
195 


EQN 

EQN 

EQN 

EQN 

EQN 

EQN 


232 

233 
23 A 

235 

236 

237 


EQN 

EQN 

EQN 

EQN 

EQN 

EQN 

FQN 

E3N 


21 A 

215 

216 

217 

218 
219 
223 
221 
222 
223 
22A 


EQN 235 
EON 237 
EQN 233 
EQN 239 
EQN 293 
EQN 291 
FQN 292 
EQN 293 
EON 2AA 


295 
295 

297 

298 
EQN 299 


FQN 

EQN 

EQN 


■ EQN 
EON 
EQN 
EON 
CON 
EQN 
EON 
EQN 
EQN 
FQN 


253 

251 

252 

253 


256 

2a7 

258 

299 
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SCE<33)- - 0.0010 

SCF(34)= + 0.0010 

CCFtl) = + 9.? 10 0 

CCF(2) =■ ♦ 0.5522 

CCF(3) = - 0.0904 

LCFlii.Ii 

CCF (51 f + 0.0216 

CCF161 = ♦ 0.0183 

.CCEJ n^*- Pt 0.113 


EQN 257 
EQN 258 

EQX— 265. 

EQN 270 
EQN 271 

1 . EQM_. 272 

EQM. 273 
EQN 274 

EQN 275. 


CCF f 8 1 = - 0.0093 

CCF (9) = - 0.0066 

CCF { 10)^i _O..0Q5Q 

CCF(in= - 0.0031 

CCF (121- * 0.0030 

CCF U m - J),,0Q24 

CCF ( 14) = + 0.0023 

CCF(15)= + 0.0022 

CCFJ 16)=. + . 0..001A-_.- 


CCF ( 17) = - 0.0011 

CCF (18)= 4- 0.0011 

CCF (19)*.— .QtQQiO . * 

2 CONTINUE 

DEFINE VARIABLE COEeHCI ENLJ1E_SIN£_LERK..._ 

SCF(l) = - 17.2327 - 0.01737*1 

COMPUTE NUTATION I N ‘LONG !Tu6e""BY — SUhSi NS PRODUCTS" OF SINE 
COEFFICIENTS WITH THEIR RESPECTIVE SINE TERMS. 

COMPUTE NUTATION IN □BLIQUm'BY'luHiTlNG PRODUCTS OF COSINE 
COEFFICIENTS WITH THEIR RESPECTIVE COSINE TERMS. 

DPS 1=0 
DE =0 
DO 3 N=l* 19 
DPSt=DPSI+SCF(N)*S(N) 

3 OE =0E +CCF(N)*C(N) 

DO 4 N=23,34 

4 OPSI=DPSI+SCF( N J *S IN) 

CONVERT FROM SECONDS OF ARC TO RADIANS. 


COMPUTE TRUE OBLIQUITY OF DATE IN RADIANS. 

E=3. 40931976-3. Z271UE-3*T-0.286E-7*T2«-0.88E-8*T3*0E 

COMPUTE NUTATION IN RIGHT ASCENSION (EQUATION OF THE EQUINOXES) 
IN RADIANS. 

EQN=OPSI*COSF< E) 

RETURN 

END 

FUNCTION GASTZ FORTRAN SOURCE PROGRAM 

CAROS COLUMN 

LISTS 

LABEL 

FUNCTION GASTZ(OJ,UTl.EQ) 

VERSION OF 03/03/64 

FORTRAN FUNCTION 

FOR USE WITH FORTRAN 2 MONITOR ON IBM 7090, 7094 

PURPOSE 

COMPUTES GREENWICH APPARENT SIDEREAL TIME. 


= JULIAN DATE AT 0 HOURS UNIVERSAL TIME 
= UNIVERSAL TIHE IN HOURS 

UT1 MUST BE AVAILABLE IN CALLING PROGRAM IN DOUBLE 
PRECISION FORH 

= NUTATION IN RIGHT ASCENSION (EQUATION OF THE 
EQUINOXES) IN RADIANS 


NAME = GREENWICH APPARENT SIDEREAL TIHE IN RADIANS 


EQN 276 
EQN 277 

EON 27.8 

EQN 279 
EQN 230 

23_X_ 

EQN 282 
EQN 233 
,EQX_ 234 
EQN 235 
EQN 236 
£0X1,237 
EQN 283 


EQN 

EQN 

EQN 

EQN 

EQN 

EQN 

EQN 

EQN 

EQN 

EON 

EQN 

EQN 

EQN 

EQN 

EQN 

EQN 

EQN 

EQN 

EQN 

EQN 

EQN 

EQN 

EQN 

EQN 

EQN 

EQN 

EQN 

EQN 

EQN 

EQN 

EQN 

EQN 


2B9 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 
333 

331 

332 

333 

334 

335 

336 

337 
333 
339 
313 

311 

312 

313 

314 

315 

316 

317 
319 

319 

320 


GASTZ333 

34STZ331 

3ASTZ332 

GASTZ333 

GASTZDD4 

GASTZ3D5 

GASTZ336 

GASTZ337 

3ASTZ333 

3ASTZ339 

3ASTZ313 

3ASTZ311 

3ASTZD12 

GASTZ313 

GASTZ314 

3ASTZ315 

3ASTZ316 

3ASTZ317 

3ASTZ319 

3ASTZ319 

34STZ323 

3ASTZ321 

34STZJ22 

GASTZ323 

SASTZ324 


= GREENWICH MEAN STOEREAl* TIME IF INPUT VALUE OF E3=3 5ASTZ325 


NAME LIES BETWEEN 0 AND ♦ 2 PI RADIANS AND IS AVAILABLE 
CALLING PROGRAM IN DOUBLE PRECISION FORM. 

(24 HOURS = 2 PI RADIANS) 


REFERENCE 


ASTZ325 

3ASTZD27 

3ASTZ328 

GASTZ329 

GASTZ333 

3AST233I 

5ASTZ332 


GREENWICH MEAN SIDEREAL TIME IS COMPUTED ACCORDING TD 
THE FORHULA CONTAINED ON PAGES 474-476 OF THE 1963 
EDITION OF THE AMERICAN EPHEHERIS AND .NAUTICAL ALMANAC. ^ASTZ333 
INPUT ARGUMENT EQ MAY BE COMPUTED BY MEANS OF SASTZ334 
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FORTRAN OR FAeL.EUNCTJQN.EQN. •. 

JULIAN PATE AT 0 HOURS UNIVERSAL TIME. .HAY. 
BY MEANS OF FORTRAN_Ei4-FAe FUNCTION DJUU 


2. HE i GHT OF SATELLITE ABOVE COMPUTATIONAL SPHEROID SOLATilA 
ALONG THE NORMAL FRDM SATELLITE TO SPHEROID. SOLATZ15 


a GEOCENTRIC LATITUDE {DECLINATION) OF SATELLITE 
IN RADIANS 

a GEOCENTRIC DISTANCE IN KILOMETERS 
= EQUATORIAL RADIUS OF COMPUTATIONAL SPHEROID IN 
KILOMETERS 

= INVERSE OF FLATTENING DF COMPUTATIONAL SPHEROID 
1 01 HENS IONLESS ) - E.G. IF FLATTENING = 1/298.3, 
THEN FI = 298.3 


ALONG NORMAL FROM SATELLITE TO SPHEROID - K I L0METERS5DL ATZ38 



G0LAU37 


— : » »THE REDUCTION FROM GEOCENTRIC.' TO; GEODETIC COORDINATES^ 

* 8r JOHN HORRISOH ANO. SAHUEU HINES* 

THE ASTRONOH tCALJ OURNAL»_jmk« 66»~N0,_l j_F.EMUARY_J *61 « 
.PAGES 15 AND 16. 


THE APPROX IHAI tSM Slg£S AN ACCUR ACY OF 8 .SIGNIFICANT GOUI256 

FIGURES. " GDLATZ57 

THE 0 FIGURE ACCURACY* CLAIMED BY THE AUTHORS HAS VERIFIED GOLATZ5B 
BY USING. IHE INVERSE—EftOBLfiS— US£Q0ETIt_I!l_G63CENlAI5» SOLAIZS* 

COORDINATES), WHICH CAN BE SOLVED RIGOROUSLY, TO SUPPLY SOLATZ60 
THE INPUT FOR THIS FUNCTION. THE OUTPUT FROM THIS FUNCTIONGDLATZ61 
HAS. TH£N..CQHP.AREO-HlIlUrHE— INI.II AL.OATAJQR VARIOUS. . . -S0LAJZ52 

INITIAL CONDITIONS. 5DLAU53 

SDLATZS* 

REOUJ RED. .SUBPROGRAMS^ _ _ - SK'JIfi! 

I DFDP) , I DFMP ) , l OF AD), ( DFS8) , DSIN, DCOS, DSQRT GDLATZ56 


NO ESTIMATE AVAILABLE 


FORTRAN SOURCE PROGRAM 


VERSION OF 07/22/63 

FORTRAN FUNCTION 

FOR USE WITH FORTRAN 2 MONITOR ON IBM 7090, 7094 


CONVERTS HOURS, MINUTES* ANO SECONDS OF TINE TO RAOtANS 



c.. 

~C_ 

C 


c 

_£L 
C . 
C . 
_£. 
c 
c 
t 


_ _ i 2A-HDURS.Ji_2-.PI_JRADiAN£A*.-’ 


CALLING SEQUENCE ' . 

0 NAME ?._HKSRZ.(IH»IM».UJL_ 


HNSRZ311 

HHSRHL2.- 

HMSRZ313 
HHSRZ314 

HMS8Z.3L5._ 

HMSRZDI6 
HHSRZ317 
HM&RZ3LB 
HHSRZ319 

HHSRZ320 

SIGN OF THE INPUT TIME- NEEP_Q_NUf BE ASSQCIAT SJLMLDLjmSRZ 12 1 
.IHE-NUHBER_QF_yOU&S_JJin. HHJRZ322 

HNSRZ323 

JiHW32A . 


IH f NUMBER JJF, HQUR.S,Jii..TlWE „ 

IB « NUMBER OF MINUTES IN TI H P " 

JS._ -E-NUMBER JQUECOND5 JULXIME. 


NAME = TIME, IN RADIANS 


' precisio^form! 0 CflLLINGJB0G,l4H - I>l DQUPLE 


REFERENCE- 


METHQp JS 

RESTRICTJ.Q.NS: . . 


ACCURACY 

WHEN NECESSARY,- INTERNAL ARITHMETIC IS PERFORMED IN OOUBLE 
PRECISION SO THAT THE VALUE OF THE OUTPUT ARGUMENT IS 

REQUIRED SUBPROGRAMS - FORTRAN 2 MONITOR 

IDFMPMDFADJ — 

REQUIRED SUBPROGRAMS - OTHER 

none 


NO ESTIMATE AVAILABLE.. 


*«* START PROGRAM 

2 TH=IH ' 

3 TH= I H 

A TM=SIGNF{TM,TH) 

5 TR$»SIGNF(TS,TH1 

6 HHSRZ=TH» . 261 799387 7991 A9A ♦ TM*4. 363323129985824E-3 

1 +TRS*7« 272 2052 16643040E-5 

RETURN 

ENO 

SUBROUTINE JULCAL FORTRAN SOURCE PROGRAM 

CARDS COLUMN 

LISTS 

LABEL 

SUBROUTINE JULCAKOJ.NH.ND.NY) 

VERSION OF 07/22/63 

FORTRAN SUBROUTINE 

FOR USE WITH FORTRAN 2 HON! TOR ON IBM 7090, 7094 


DJ = JULIAN DATE AT 0 HOURS UNIVERSAL TIME 


NM « CALENDAR MONTH 

ND = CALENDAR DAY 

NY = CALENDAR YEAR 


THE NUMBER OF DAYS FROM 12 HOJRS UNIVERSAL TIME JAN. 0, 
1800 IS CALCULATED. THE INTEGRAL NUMBER OF YEARS IN THIS 
NUMBER IS ADDED TO 'lBOO TO GIVE THE CURRENT C4LEND4R YEAR 
AND THE NUH8ER OF DAYS CONTAINED TN THE INTEGRAL NUMBER 
OF YEARS ELAPSED SINCE JAN. 0, 1830 IS SUBTRACTED FROM THE 


HMSRZ325 
HMSRZ326 
HMSBZ327 
HMSRZ32B 
HHSRZ329 
HMS8Z030 
HMSRZ33 1 
HMSRZ332 
HMS5Z333 
HMSRZ33 A 
HMSRZ335 
H.HS8Z336 
HMSRZ337 
HHSRZ338 
MMSRZ339 
HHSRZ343 
HMSRZ341 
HMSRZ342 
HMSRZ343 
HMSRZ344 
HMSRZ345 
HMSRZ346 
HMSRZ347 
HMSRZ34B 
HMSRZ349 
HMSRZ350 
HHSRZD51 
HMSRZ352 
HMSRZ353 
HMSRZ354 
HMSRZ355 
HMSRZ359 
HMSRZ362 
HMSRZD63 
HMSRZ365 
HMSRZ3S6 
►HMSRZ357 
HMSRZ3S9 
HMSRZ369 
HMSRZ373 
HMSRZ371 
HMSRZ372 
HMSRZ373 
HMSRZ374 
HMSRZ375 
HMSRZ376 
JULCAL30 
JJLCAL31 
JULCAL32 

JULCAL33 
JJLCAL34 
JULC4L3S 
JULCAL36 
JULCAL37 
JULCAL 38 
JULCAL39 
JULC4L13 
JULCALll 
JJLCALIZ 
JULCALI3 
JULCAL14 
J'JLCAL IS 
JULCAL16 
JULCAL17 
JULCAL1 3 
JULCAL19 
JJLC4L2D 
JULCAL21 
JULCAL 2 2 
JULCAL2 3 
JULCAL24 
JULCAL25 
JULCAL 2b 
JULCAL27 
JJLCAL28 
JULC4L29 
JULC4L33 
JJLCAL31 
JJLC4L32 





ORIGINAL NUMBER OE JWS.JIW3M.JAN. .0*„1800»_ -THE L«EGRAL. 
NtJMRPR OF MONTHS IN THIS REMAINDER IS CALCULATED T O GIVE. 


JULCAL33 


THE CURRENT CALENDAR MONTH..._THE NUMBER W DAYS CONTAINED JULCAL35 

in. this Integral nuhsI Lop If^^THPf.&FlwnA^oaY ^ 011 ™ E - 


APPROPI ATE CONSIDERATION HAS J9EEN GIVEN TO THOSE YEARS 
WHICH ARE^ D I.VI|feLi A By^^||0, ^AND^400. ^ 

fnZr^Vml i ble ji.JL_ifib 7 T^o 400!?“ imsE ~ xw - 


,_C R ESTRICTIONS 


DATE RESTRICTED TO LIE BETWEEN JANUARY 1, 

2000. 


REQUIRED" SUBPROGRAMS - FORTRAN 2 MONITOR 
NONE 


’STORAGE REQUIREMENTS 

176 WITHOUT REQUIRED SUBPROGRAMS 


NO ESTIMATE AVAILABLE 


»**• START PROGRAM »*•***•****•*•*******»***' 

2 DIMENSION H112) 

6 NM=0 

8 M(l)=31 

9 HI 2) =28 

10 H(3)=31 

11 HI4)=30 

12 MI5I-31 

13 M16)=30 

14 M( 7) =31 

15 MI 8 ) =3 1 

16 M19)=30 

17 Mt 10 > = 31 

18 MI11)=30 

19 Ml 121=31 

20 IF I DJ-24 15020.5 ) 21.21,22 

21 NY=XINTFI IOJ-2378495.S 5/365.25) +1800 
GO TO 23 

22 NY=XINTFKDJ-2378495. 5+1.01/365. 251+1800 

23 NDY=OJ-DJUL 1 1,0, NY ) 

24 NO=NDY 

25 DO 33 N=1 ,12 

26 IF IN-2) 30,27,30 

27 IF (NY-1900128,30,28 

28 IF IXM0DFINY.4) I 30,29,30 
29. MI N) =M( N) + 1 

30 ND=N0-M(N1 

31 NK=NM+ 1 

32 IF IND) 34,34,33 

33 CONTINUE 

34 NO=ND+MIN) 

RETURN 

END 

SUBROUTINE PARA FORTRAN SOURCE PROGRAM 

CARDS COLUMN 

LISTB 

LABEL 

SUBROUTINE PARAI INPUT, AI , A, GM) 


•JULCAL38 
JULCAL39 
JULCAL4J) 
JULC AL41 
JULCAL42 
.J.ULCAL43 . 


.J.ULCAL46 
JULCAL47 
JULCAL48 
JULC.AL49 
JULCAL50 
JULCAL51 
_ JULCAL52 . 
JULEAL53 
JULCAL54 
JULC4L55 
JUL04L56 
JULCAL57 
JULCAL5B 
JULCAL59 
JULCAL69 
JULCAL51 
JULCAL55 
JULC AL 58 
JULCAL59 
JULCAL7I 
JULCAL72 
••JULC4L73 
JULCAL74 
JULC4L75 
JULCAL75 
JULCAL77 
JULC4L78 
JULCAL79 
JULC4L30 

julcalbi 

JULC4L32 
JULCAL33 
JULC4L34 
JULCAL35 
JULCAL36 
JULCAL37 
JULCAL88 
JULC4L39 
JULCAL93 
JULCAL91 
JULC4L92 
JULCAL93 
JULC4L94 
JULC4L95 
J JLCAL96 
JULCAL97 
JULCAL93 
JJLCAL99 
JJLCAL33 
julcaldi 
JULCAL02 
JULCAL33 
JULCAL34 
JULCAL35 
JULC AL 36 
JULC AL 37 
PARA 330 
PARA 331 
PARA 332 


PARA 333 
PARA 334 
PARA 335 
PARA 336 
PARA 337 
PARA 338 
PARA 339 

CONVERTS AN ARBITRARY SET 3F 6 INDEPENDENT INPUT PAR AMETERSPAR A 313 
INTO OSCULATING ORBITAL ELEMENTS. p AR4 9H 

PARA 312 
PARA 313 
PARA 314 
PARA 315 
PARA 315 
PARA 317 
PARA 313 
PARA 319 
PARA 323 

INPUT® CONTROL NUMBER TO INDICATE TYPE OF INPUT PARAMETERS PARA 321 
AI = ARRAY- OF 6 INDEPENDENT INPUT PARAMETERS PA*A 922 
GM = THE PRODUCT OF G, THE GAUSSIAN CONSTANT SQUARED, PARA 323 


VERSION OF 06/14/63 

FORTRAN SUBROUTINE 

FOR USE WITH FORTRAN 2 MONITOR ON IBM 7090, 7394 


CALLING SEQUENCE 
D DIMENSION AIC6I,AI6) 

CALL PARAI INPUT, AI , A, GMJ 

INPUT, OUTPUT, ANO INTERNAL ARITHMETIC OPERATIONS ARE ALL 
PERFORMED IN DOUBLE PRECISION. 


* 




c 


D 1 
0 

0 101 


0 

0 201 

0 


c 

3 

0 

D 301 
0 


D 

*01 


4W.H L .jHejiA5&QJ: THE. EARTH . 


PARA 02* 
„£MA_22.5. 


OSCULATING ORBIJAL ELEMEN TS 


PARA 026 
PARA 027 
„£AR A. .3.20 


All) 3 SEHI-MAJQR, AXIT 
a! I! * INCLINATION* ' 


- DIMENSIONLESS 

-.RADIUS- , 


AiW - RIGHT ASCJEfiS 1 0_N_Q£ ASCENDING NODE r RADIANS 
AI5) - ARGUMENLOF PERT GJEE - RADIANS 

_^JALf.. HEAN .AN O MALY -—RADIANS. . 


RESTRICTIONS 


REQUIRED SUBPROGRAMS - FORTRAN 2 MONITOR 
. ..JDEMp) 

REQUIRED SUBPROGRAMS - OTHER 
07/227 63 . ALJ.PJ2._ 

07/22/63 ALLOT 
03/03/6* ATANQ 
07/22/63 ATAN2 . 

07/17/63 BRHR1 
01/31/6* BRHR2 
03/02/6* ELRV 
07/22/63 RVELZ 
09/12/63 XKEP 


NO ESTIMATE AVAILABLE 
ANALYSIS 


PROGRAM MODIFICATIONS 

NO MODIFICATIONS TO DATE 

i START PROGRAM 

DIMENSION AI(6) , A{6) ,RX( 3) , VX( 3 ) 

DIMENSION DUH1(100),AIIO(6) 

DIMENSION XXI 18 ) t AB1 6) 

COMMON OJMl , AL19 ,XX, AB 


GO TO (1,2,3,*), 


AI1)=AI ID 
A(2)=AII2) 

OO 101 N-3, 6 

A(N)=AI l N)»0» 01 7*532925 199*33 
GO TO 9999 


* PER, EN.GM) 


INPUT OPTION 2. 


00 201 N* 1 , 3 
KX { N) = AI < N J 
VXI N) =AI (N+31 
CALL RVELZ(RX,VX,i 
GO TO 9999 

INPUT OPTION 2. 


DO 301 N=l*3 
RX(N)=AIIN) *6373.306 
VX I N ) = A IlN+3) *7.905*72668 
CALL RVEL/(RX,VX,A,PFR,EN,GM) 

GO TO 9999 

INPUT OPTION *, AI = BROUWER MEAN ELEMENTS, ALL ANGLES IN DEGREE 

Aiiom=Aim 
AUOI2)sAI(2) 

DO *01 N*3»6 

BA= AI IN) *0.017*532925199*33 
A110IN)=BA 


PARA D29 
PARA 030 
PAW .031 
PARA 032 
PARA 033 
-PAM_D3_* 
PARA 035 
PARA 036 
..PA&A 03.7 
PARA 03B 
PARA 039 
PARA 0*0 
PARA 0*1 
PARA 0*2 
PARA 0*3 
PARA 0** 
PARA 0*5 
PARA 0*6 
PARA 0*7 
PARA 0*8 
PARA 0*9 
PARA 050 
PARA 051 
PARA 052 
PARA 053 
PARA 05* 
PARA 055 
PARA 056 
PARA 057 
PARA 058 
PARA 059 
PARA 050 
PARA 061 
PARA 062 
PARA 063 
PARA 05* 
PARA 055 
PARA 056 
PARA 057 
PARA 058 
PARA 071 
PARA 07* 
PARA 075 
PARA 077 
PARA 378 
•PARA 379 
PARA 090 
PARA 051 
PARA 032 
PARA 083 
PARA 09* 
PARA 035 
PARA 036 
PARA 337 
PARA 039 
PARA 339 
PARA 390 
PARA 091 
PARA 392 
PARA 093 
PARA 09* 
PARA 395 
PARA 095 ' 
PARA 097 
PARA 09B 
PARA 399 
PARA 130 
PARA 101 
PARA 132 
PARA 103 
PARA 13* 
PARA 105 
PARA 136 
PARA 107 
PARA 109 
PARA 109 
PARA no 
PARA 111 
PARA 112 
PARA 113 
PARA 11* 
PARA 115 
SPARA 115 
PARA 117 
PARA 118 
PARA 119 
PARA 120 
PARA 121 
PARA 122 
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CALL 8RWR1 

01=0*0 ___ 

D CALL BRHR210T*0.0} 

00 402 N=l,6 

_^02™AiiU£ABLNJ • - 

9999 RETURN 

END ... 

* SUB80UIUE-BQHSZ,. EOM UR, SPURS E.PHO HUH 

* CARDS COLUMN 

* LISTS 

* _ la bel ___ 

SUBROUTINE ROMSZ [ AR, JR, I 0. IM,AS) 


PARA 126 

EARA__L2I„.. 

PARA 128 
PARA 129 
RDMS1000 
RDHSI031 
RDHSZ332 


CONVERTS AN ANGLE OR ARC_IN RADIANS INTO THE INTEGRAL 
NUMBER Op BE.V.0U)XlQNS J u.JiU!ie£&_QlF~0E5REES, NUMBER _QF„ . 
MINUTES* AND NUMBER OF SECONDS AND DECIMALS Q? A SECOND 
CONTAINED IN THE ANGLE OR ARC* 


INE ROMSZ ( AR, IR> ID* IN* AS) RDMSZ003 

RDHSZ004 

--Vg.BSI ON OF 03/02/64 _ „„ R DHSZ03S , 

FORTRAN SUBROUTINE _ _ „ " RDMSZ036 

FOR USE KITH FORTRAN 2 HONIJOR ON IBM 7090* 7094 ROMSZOO? 

RDMSms 
RDMSZ0D9 

CONVERTS AN ANGLE OR ARC_IN RADIANS INTO THE INTEGRAL RDMSZO10 

NUMBER Of B&mUXLQU^JIUtWJESUU'. DEGREES* NUMBER _QF„ . RDJJSZJll. 

MINUTES* AND NUMBER OF SECONDS AND DECIMALS D? A SECOND ROHSZ312 
C3NTAINE0 IN THE ANGLE OR ARC* RDMSZ313 

....... RDHSZ31.4 

i SEQUENCE R0MSZ3X5 

CALL ROMSZ tAR, 1R« ID* IN* AS) RDMSZ016 

RDMSZ317 
RDMSZ318 

AR * ANGLE OR ARC IN RADIANS R0MSZ319 

. ... ....... R0HSZ320 

AR MUST BE AVAILABLE IN CALLING PROGRAM IN DOUBLE PRSCISIQNRDHSZ321 
FORM. ROMSZD22 

. RDHSZ3Z3 

R0MSZ324 

I* * INTEGRAL NUMBER OF REVOLUTIONS' IN THE ANGLE OR ARC RDHSZ3Z5 

ID » NUMBER. OF DEGREES . RDMSZ326 

IK = NUMBER OF MINUTES R3MSZ32? 

AS * NUMBER OF SECONDS AND DECIMALS OF A' SECOND RDMSZ329 


■ ANGLE OR ARC IN RADIANS 


C NO ESTIMATE AVAILABLE 

C ANALYSIS 

C 

C PROGRAM MODIFICATIONS 

C 03/02/64 HOD. I BY S. STATEN - CHANGED LIMIT OF 

C AS FROM 59.0005 TO 59.9995 

<!**•** START PROGRAM ••••••»••»•* 

D 5 I R=AR/6. 2 33 1853071 79586 
0 6 ARsHOOFUR, 6.283185307179586) 

D 7 I 0a AR*57. 2957795 130B23 

8 Ala ID 

0 9 A= A 1/57.2957795130823 

0 10 8*AR-A 

D 11 I M=B*3 4 37. 746770784938 
0 12 A2*IM 

13 IBsXABSFI 1 H 3 
D 14 C*A2/3437. 746770784938 
D 16 0*8-C 

0 L6 AS«ABSF (0*206264.806247096) 

0 17 IF< AS-59.9995) 20.18.18 

D 18 ASsABSFIAS-60.) 

19 JK»IH+l 

20 IF IIH-63J 23,21,21 

21 JfWH-60 

22 IDa|D*XSIGNF(l*IOt 

23 IF (XABSf IID)-*3&9) 26*24,24 

24 10»ID-XSIGNFI360, 10) 

25 IRalR+XSIGNFIl, JR) 

26 RETURN 

% 


R0MSZ3S2 
R3HSZ333 
R3MSZ354 
R9NSZ337 
RDMSZ363 
R3H5Z361 
RDMSZ353 
RDHSZ354 
RDMSZ355 
»fOM$Z356 
R0MSZD57 
R0HSZ353 
RDMSZ359 
A3MSZ373 
R9MSZJ71 
R3HSZ372 
R0MSZ373 
R3HSZ374 
RDMSZ37S 
A3HSZ376 
RDHSZ377 
R3MSZ37S 
RDMSZ379 
R3MSZ383 
RDMSZ39 1 
RDMSZD82 
A3MSZ333 
ADHS£3a4 
RDMS2335 
A3NSZ395 
R3HSZ337 
R0MSZ389 
R0HSZ339 



c 

c_ 

c 

C. 

c 

c 

5 . 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


END 

cards" column * 

LISTB 

iAIEL 

SUBROUTINE RHMSZ ( TR , ID» I H, IH, TS) 


VERSION OF JQXL 9 2/64 — 


IBM 7090, 7094 


PURPOSE ' 

CONVERTS TIME IN RADIANS (24_HQURS - 2 PI RADIANS) INTO 

MINUTES, AND NUHBER OF .SECONDS AND DECIMALS OF A SECOND - 
CONTAINED IN THE TIME. • 


calling” sequence" 

D CALL RHMSZ {TR, 10, IH,IH,TS) . 

INPUT 

TR = TIME IN RADIANS 

TIME MUST ~BE* AVAILABLE " IN CALLING PROGRAM IN 
DOUBLE PRECISION FORM. 


OUTPUT 

ID 

IH 

IM 

TS 


INTEGRAL NUrrntK ur- uan luniaiNED IN THE TIME 
NUMBER OF HOURS.. 

NUMBER OF MINUTES 

NUMBER OF SECONDS ANO DECIMALS OF A SECOND 


REFERENCE 


METHOD 


C 

C RESTRICTIONS 


C 


ACCURACY 

CONVERSION IS ACCURATE TO AT LEAST 


.001 SECONDS OF TIME. 


C REQUIREO SUBPROGRAMS - FORTRAN 2 MONITOR 
C ( DFDP) , DMOD, { DFMP ) , I DFSB ) 

C REQUIRED SUBPROGRAMS - OTHER 
C NONE 

C 

C STORAGE REQUIREMENTS 

C 316 WITHOUT REQUIRED SUBPROGRAMS 

C 

C TIMING 

C NO ESTIMATE AVAILABLE 


ANALYSIS 


PROGRAM MODIFICATIONS 

03/02/64 MOD. 1 BY S. STATEN - CHANGED UPPER LIMIT OF 
TS FROM 59.0005 TO 59.9995 


<;••••• START PROGRAM ••***•***••*•«••**•**••«•• 

C 

D 5 ID=TR/6. 283185307179586 

D 6 TR=MUDF( TR, 6. 283185307179586) 

0 7 IH=TR*3. 31971863420548 

8 Tl=IH 

0 9 A=Tl/3. 81971863420548 

0 10 B=TK-A 

0 ll IH=B»229. 183118352329 
0 12 T2=|M 

13 IH=XA8SFUM) 

0 14 C=T2/229. 183118052329 

0 15 D=B-C 

0 16 TS=ABSFID*L3753. 9870831397) 

0 17 IF I TS— 59. 9995 1 20,18,18 

18 TS=ABSF ( TS-60. ) 

19 IM= IM*1 

20 IF (IM-63) 23,21,21 

21 I M= l M-60 

22 I H= I H+ X S I GNF { l , I H ) 

23 IF ( XABSF CIHI-24) 26,24, 24 

24 IH= IH-XSIGNFl 24, IH) 

25 I0=I0«-XSIGNF11, 10) 

26 RETURN 
END 

> SUBROUTINE RVELZ FORTRAN 50URCE PROGRAM 

• CAROS COLUMN 

» LISTB 

• LABEL 

SUBROUTINE RVELZ(X,VX»A t P,EN,GH) 


R0MS239D 

RH.MSIQQQ. 

RHMSZOOl 

RHMSZ032 

RHHSZ033* 
RHHSZ334 
RHMSZ035 
RHMSZ036 
RHMSZD37 
RUMiZODB 
RHMSZ039 
RHMSZ310 
&HHSZ311 
RHHSZ312 
RHMSZ313 
RHMSZ314 
RHMSZ315 
RHMSZ316 
RHMSZ317 
RHMSZ318 
RHMSZ319 
RHMSZ320 
RHMSZ321 
RHMSZD22 
RHMSZ323 
RHHSZ324 
RHMSZ325 
RMMSZD26 
RHMSZD27 
RHMSZ323 
RMHSZ329 
RHHSZ333 
RHHSZ331 
RHHSZ332 
RHHSZ333 
RHHSZ334 
RHHSZ335 
RHMSZD36 
RHMSZ337 
RHMSZ338 
RHMSZ339 
RHMSZ343 
RHMSZ341 
RHMSZ342 
RHMSZ343 
RHMSZD44 
RHKSZ3A5 
RHMSZ346 
RHMSZ347 
RHMSZ349 
RHMSZ349 
RHMSZ350 
RHMSZ051 
RHMSZ352 
RHMSZ353 
RHMSZ354 
RHMSZ357 
RHMSZ363 
RHMSZ3S1 
RHMSZ363 
RHHSZ364 
RHMSZ3S5 
• »RMMSZ366 
RHMSZ367 
RHMSZ358 
RHMSZ369 
RHXSZ373 
RHMSZ37 1 
RKMSZ372 
RHMSZ373 
RHMSZ374 
RHMSZ375 
RHMSZD76 
RHMSZ377 
RHMSZ 373 
RHMSZ379 
RHMSZ333 
RHMSZ331 
' RHMSZ332 
RHMSZ333 
RHMSZ334 
RHMSZ335 
RHMSZ335 
RHMSZ337 
RHMSZ333 
RHMSZ339 
RHMSZ390 
RVELZ333 
RVELZ331 
RVELZ332 

RVELZ333 

RVELZ334 
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VERSION OF 07/Z2Z63_ 

FORTRAN SUBROUTINE - 

FOR USE WITH FORTRAN 2.HONITOR ON IBH 7090* 7094 

PURPOSE : — 

CONVERTS GEOCENTRIC EQUATORIAL INERTIAL RECTANGULAR 
COORDINATES OF J POSITION. AND. COMPONENTS OF VELOCITY INTO 
OSCUL ATING ORBITAL E LEHENISJ _L 

CALLING SEQU ENCE ^ ^ ^ .71:1- 


RVELZ305 

RVELZ337 

RVELZ308. 

_^yEJ^0J9 

RVELZ010 
RVELZ3U 
_ R.YELZ312 . 
RVELZ313 
RVELZ314 
RYELZJiS. 


' CALL RVELZIX,VX,A,P*EN*GH| 


X ( 2 1 _ TH E 3 RECT AN GULAR COQ&P J NATES- OF FQ S I T ION 
XI 3) 

VX ! 2 ) THE V RECT ANGUL AR T ONPONENT S "OF VELOCITY'' 
VX [3 ) 


' GM = THE PRODUCT 0F _ G» THE GAUSSIAN CONSTANT SQUARED, 
AND M, THE HASS DF THE EARTH 

UNITS OF INPUT ARGUMENTS x"» VXTaND GM ARE ARBITRARY BUT 
MUST BE MUTUALLY CONSISTENT. 

INPUT ARGUMENTS^ MUST-BE. AVAILABLE IN CALLING P.ROGRAH.IN 
DOUBLE PRECISION FORM. 


All) = SEMI-HAJOR AXIS 


At 2J 
At 3) 
AI4) 
AI5) 
A16) 


: ECCENTRICITY 
> INCLINATION 
: RIGHT ASCENSION OF ASCENDING NODE 
: ARGUMENT OF PERIGEE 
■ MEAN ANOMALY. 


- OIMENSI ONLESS 

- RADIANS 

- RADIANS 
— RADIANS . 

- RADIANS 


RVELZ316 
RVELZ317 
__AVELZ315_._ 
RVELZ319 
RVELZ320 
RVELZ321 
RVELZ322 
RVELZ323 
RYELZ32.4 
RVELZD25 
RVELZ326 
R.VELZD27 
RV6LZ328 
RVELZ329 
RVELZ330 
RVELZ331 
RVELZ332 
RVELZD33 
RVELZ334 
RVELZ335 
RVELZ336 
RVELZ337 
RVELZ338 
RVCLZ339 
RVELZ343 
RVELZ341 
RVELZ342 
RVELZ343 
RVELZ344 
RV5LZ345 
RVELZ346 

UNITS OF OUTPUT ARGUMENTS All), P, AND EN MILL 06PEN3 UPON RVELZ347 
THE UNITS EMPLOYED FOR X, VX, AND GM. RVELZ348 

ALL ANGLES ARE IN RADIANS. RVELZ349 

OUTPUT ARGUMENTS ARE RETURNED TO CALLING PROGRAM IN DOUBLE RVELZ353 
FORM. RVELZ351 

RVELZ352 
RVELZD53 
RVELZ354 
RVELZ355 
RVSLZD56 
RVSLZ357 
RVELZD58 
RVELZD39 
RVELZ3S3 
RVELZ361 
RVELZ362 
RVELZD53 
RVSLZDS4 
RVELZ3S5 
RVELZD56 
RVELZ367 
RVELZDS3 
RVELZDS9 
RVELZ370 
RVSLZD71 
RVELZ372 
RVELZD73 
RVELZ374 
RVELZ375 
RVELZD75 
RVELZD77 
RVELZ373 
RVELZD79 
RVELZ333 
RVELZD 36 
RVELZ398 
RVELZ339 
•RVELZ393 
RVELZD9I 
RVELZ392 
RVELZ393 
RVELZ594 
RVELZJ95 
RVELZ396 
RVELZ397 
RVSLZ399 
RVELZ399 
RVELZI3D 
RVELZ131 
RVELZI 32 
RVELZ133 
RVELZ134 


REFER TO MATHEMATICAL DESCRIPTION IN SUBPROGRAM WRITEUP 


ACCURACY 

REFER TO ACCURACY TESTS IN SUBPROGRAM WRITEUP. 
INTERNAL ARITHMETIC IS PERFORMED IN DOUBLE PRECISION. 

REQUIRED SUBPROGRAMS - FORTRAN 2 HUNITOR 

OEXP 1 2, IDF AO) , DSQRT , l DFHP ) » l DFSB) » l Df DP ) 

REQUIRED SUBPROGRAMS - OTHER 
37/22/63 ALLOT! 

07/22/63 ATANZ 


NO ESTIMATE AVAILABLE 


■ START PROGRAM < 


2 DIMENSION X13),VX{3) , A 1 6 ) , Yt 3) t VYI 3) 

900 DO 532 N«l,3 

501 YIN»=XINJ 

502 VY(NJ-VXIN) 

R2 = Y(1)«*2*Y(2J**2«-YI3>*»2 

3 R-SQRTFIR2) 

4 V2 = VYILI»*2+VY(2 I ••2+VY I 3) »»2 

5 V1=SQRTFIV2* 

i 6 RRDOT=YILI*VYI U*YI2)*VY(2)*Y( 3)»VYI3I 

I 7 Hl=Yt2)»VY(3)-YI3)*VYI2J 

I 8 H2=Y(3J»VY(U-Ym*VYI3> 

I 9 H3*YI 1 )»VY(2I— Y( 2 J*VYI II 


98 



10 C2=H1**2+H2**2 _ 

_U-Ci£SQEIElC2J 

.12 H*SQRTF ( H3**2+C2 ) 

13 RC1=R»CI 

- JL <► .aLGH^QRTFf GH j 

15 Atl)*GM*R/{GH+GH-R»V2) 

16 RTA=SQRTF[ A{1) ) 

_1 Z . fi^rrpqt/jrtgh.rjaj 

18 AR?Atl)/R 

19 F2*1.0-R/A( 1) . . 

- e2.;Fj«»2*F2..2 

21 A(2)*SQRTFCE2) . - 

22 $I=C1/H 

J22. CLfHSZH ^ 

24 SN=H1/C1 

25 CN— H2/CI 

26 SU?H*X(3)£RC1 

27 CU=*{Y(2)*Hi-Y(U*H2J/RCl 

28 SE=F1/A12) 

29 CE=F2/A(2) 

SF=AR*SE*SQRTF( 1.0-E2) 

CF=AR*(CE— A{2) ) 

30 A{3)=ATAN2(SI,Cn 

31 A(4J=ATANZCSN,CNI 

32 U=ATANZ{SU,CU] 

F-ATAH2 (SF, CFJ 

33 E~ATANZ(SE,CE) 

A5=U-F. 

A I 5 ) =ALLDTZ J A5) _ 

34 A6=E-A(2)*SE 

35 A( 6 ) = ALLOTZI A63 

36 EN=RTGM/ ( RT A»A( 1 ) ] 

37 P=6. 283135 307179586/EN 
RETURN 

END . . . . 

SUBROUTINE R13Z FORTRAN SOURCE PROGAAH 
CARDS COLUMN 
•LISTS 
LABEL 

SUBROUTINE R13Z(Y,8, A,X1 

VERSION OF 07/18/63 

FORTRAN SUBROUTINE 

FOR USE WITH FORTRAN 2 MONITOR ON IBM 7090, 7094 


RVELZ105 

RV E LZ136 

RVELZ107 

RVELZ138 

RVELZ13 9 

RVELZllO 
RVELZ111 
_RVEi.Z112 .. 
RVELZ113 
RVELZ114 
_Rtf£LLU5_ 
RVELZ116 
RVELZ117 

RVELZUB 

RVELZ119 
RVELZ120 
RVELZ121 
RVELZ122 
RVELZ123 
RVELZ124 
RVELZ125 
RVELZ126 
RVELZ127 
RVELZ128 
RVELZ129 
RVELZ130 
RVELZ131 
RVELZ132 
RVELZ133 
RVELZ134 
RVELZI35 
RVELZ135 
RVELZ137 
RVELZ138 
RVELZ139 
R13Z 030 
R13Z 001 
R13Z 002 


SOLVES IHE MATRIX EQUATJON - 
Y = R1IB) R3 1 A j X 

WHERE - 


CALLING SEQUENCE 
0 DIMENSION Y ( 3 ) , X ( 3 ) 
'D CALL R13Z(Y,B,A,X) 


VECTOR Y IN SAME UNITS AS VECTOR X I 

OJTPUT- ARGUMENTS ARE RETURNED TO CALLING PROGRAM IN OOU3LC I 
FORH. 

REFERENCE 

REFER TO MATHEMATICAL DESCRIPTION IN SUBPROGRAM WRITEUP 

METHOD 

REFER TO MATHEMATICAL DESCRIPTION IN SUBPROGRAM WRITEUP 
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ojoo Oj< 


-G .STQftAQE Hg<ay[REMENTS 

C 298 WITHOUT REQUIRED. SUBPROGRAMS 

C 

C T IMING 

C ' NO ESTIMATE AVAILABLE.. 

C 

analysis 


c 

G*» 

c 

0 

c 

D 

D 

0 . 
D 
D 
0 
0 
0 


c 

c 


PROGRAHJiOQI£I£ATlQNS__________-______ 


” .START. PjQSB AH 

2 01 MENS I ON Y(3),X(3) 

3 SA=SINF(A) ' “ 

A CA=COSF( A) 

„5 SB=$INFJSJ. 

6 C8=C0SF( 8] 

7 Z=X{2)*CA-X(1I*SA 

8 YUJ=xm*CA+XI2).«SA. 

9 Y(2>=CB«Z+X13)»SB 
10 YI3)*X{3)*CB-SB*Z 

RETURN 

END 

SUBROUTINE T1MEC FORTRAN SOUTCE PROGRAM ' 

. CARDS COLUMN 

LISTS 

LABEL 

SUBROUT I NE . T I MEC ( DJO , TSEPtS»£tDTJ 
USES TAPE A3 


Ri3Z_ 058 

—mauM- 

• R13Z 060 
R13Z 061 

R13Z 063 
R13Z 369 
R13JL 065 
R13Z 058 
. R13Z 071 


R13Z OTA 
R13Z 075 
»R13Z 0 76 


R13Z 077 
R13Z 07B 
.R11.Z_0.79_ 
R13Z 080 
R13Z 381 
R.UZ.0B2 
R13Z 033 
R13Z 08A 
JU.3Z 0B5 
R13Z 036 
R13Z 037 
R13Z 038 
R13Z 039 
TIMES 


C . VERSION OF 7/22/63 
C 

Z READS A CARD FROM CARD REAOER CONTAINING CALENDAR DATE AND UT2 OF 

C DESIRED START AND ENO TIMES .FOR .CALCULATION OF AN EPHEMERIS, AND 

C THE TIME INCREMENT OF THE EPHEMERIS IN SECONDS. CALCULATES TIME 

C INTERVAL IN SECONDS FROM SOME EPOCH (DJ0,TSEP> TO HE START AND 

C END TIMES. 

C WRITES CALENDAR DATE AND UT2 ON TAPE UNIT A3. 


C INPUT FROM CALLING SEQUENCE.. _ . 

C DJD = EPOCH JULIAN DATE AT 0 HOURS UT2. 

C TSEP = EPOCH UT2 IN SECONDS 

C 

C INPUT FROM CARD READER 

C NMS > NDS > NYS = MONTH* DAY, YEAR OF START DATE 

C NMF,NDF,NYF = MONTH, DAY, AND YEAR OF END OATE 


NHS i NMNS, TSS = HOUR, MINUTE, SECOND CUT2) OF START TIME 
NHF,NMNF,TSF = HOUR, MINUTE, SECOND IUT2) DF END DATE 
DT = TIME INCREMENT OF EPHEMERIS IN SECONDS 


S = TIME IN SECONDS FRDH EPOCH TO START TIME 
F = TIME IN SECONDS FROM EPOCH TO END TIME 
DT = TIMC INCREMENT OF EPHEMERIS IN SECONDS 


C REQUIRED SUBPROGRAMS 
C 

C DJUL, JULCAL 37/22/60 - FAP DOUBLE ENTRY PROGRAM 

C 

5015 FORMAT (2(1X12) , IX, I 4, 213, F7. 3, 1 3, IX, I 2, IX, 19,213, F7. 3, FH. 3 ) 

6016 FORMAT 1 1X1 2 , 1H/ I 2 , 1H/ 1 9 , 7X1 1H START DATE/1X I 2, 1 3.F7. 3 , 5X, 

1 15H START TIME-UT2/1XF12.3.5X23H TIME I NCREHE.NT-SEC3NDS//1 XI 2 , 

2 1H/I2.1H/I9.7X9H END DATE/1XI2 , I 3, F7. 3, 5X1 3H END TI ME-UT2 ) 

READ 60 15, NMS, NDS, NYS, NHS, NMNS I TSS, NMF.NDF ,NYF , NMF , 

1 NMNF,TSF,DT 

WRITE OUTPUT TAPE 3, 6016, NMS ,NDS, NYS, NHS , NMNS, TSS, D T , NMF ,NDF,NYF, 
I NHF, NM JF , TSF 
IF (SENSE SWITCH 6) 1,2 

1 PRINT 6016, NMS , NDS, NYS? NHS ,NMNS»TSS,OT«NMF,NDF»NYF, NHF ,.NMNF, TSF 

2 OJSO=DJUL ( NMS, NDS, NYS) 

DJFQ=DJUL I NMF , NDF.NYF) 

THS=NHS*3600 

THNS=NMNS*63 

TS=THS+-TMNS+TSS-TSEP 

THF=NHF*3600 

TMNF = NM (F*60 
TF=THF+TMNF*TSF-TSEP 
DJS=OJSO-OJO 
OJF=OJFO-DJO 
D S=DJ5 *86900. +TS 

F=DJF»86900.+TF 
RETURN 
END 

• SUBROUTINE VFUZ FORTRAN SOURCE PROGRAM 

• CAROS COLUMN 

» LISTS 

• LABEL 

SUBROUTINE VFUZ( SC,RE,F,U) 


VFUZ 030 
VFUZ 331 
VFUZ 332 
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VFUZ 333 
VFUZ 339 




VERSION OF, Q7 

FORTRAN SUBROUTINE — 

FOR USE WITH FORTRAN 2 MONITOR ON IBM T090, .7094 


FOR USE WITH FORTRAN 2 MONITOR ON ISH 7090, ,7094 VFU2 007 

VFUZ 03B 

PURPOSE JtEU.Z....O-0-3- 

* CONVERTS GEODETIC LATITUDE,, LONGITUDE, AND HEIGHT OF A VFUZ 310- 
STATION ABOVE, A. COMPUTATIONAL .SPHEROID {ALONG A NORMAL TO VFUZ Oil 
. THE SPHE ROI 0 ) IMTtL G _£OEENIMC_BeCT AMMUB- Jiqg3M MIES-PF VFUZ 012 

POSITION. THE ORIGIN OF TH E REC TANGULAR COORDINATE SYSTEM VFUZ 313 
(THE ¥ SYSTEM) IS LOCATED AT T HE GEOMETRICAL CENTER OF THE VFUZ 314 

COM P UTATIONAL SPHEROID- ~ THE U1 AXIS IS DIRECTED TO W ARDS VFUZ -315. 

THH INTERSECTION OF THE, GREENWICH MERIDIAN AND THE VFUZ 316 

EQUATORIAL PLANE. THE_U3 A2LIS_IS PERPENDICULAR TO THE VFUZ 317 

EQUATORIAL PLANE AND IS DIRECTED N OailL, LH£_H2_MLS_LS . YF<iiL,31S 

LOCATED IN THE EQUATOR! AIRPLANE 90 DEGREES E&ST OF .THE Ul VFUZ 319 
AXIS. VFUZ 320 


CALLING SEQUENCE 
0 DIMENSION SCI 3) ,U ( 3) 

0 ,CALL VFU.Z.|SCt8£»fjJii:. 


SCI3}= HEIGHT ABOVE COMPUTATIONAL SPHEROID ALONG A NORMAL VFUZ 329 
TO THf, SeMESOJLP. VFUZ 530 

VFUZ 331 

RE = EQUATORIAL RADIUS OF COMPUTATIONAL SPHEROID VFUZ 332 

,F = |NVFRSE OF F LATTENIN G OF COMPUTATIONAL SPHEROID VFUZ 333 

{DIMENSIONLESS) - E.G. IF FLATTENING = 1/298.3, VFUZ 334 

THEN F * 298.3 VFUZ 335 

_ VFUZ 336 

UNITS OF INPUT” ARGUMENTS SCO) AND RE ARE ARBITRARY BUT VFJZ 337 

MUST BE MUTUALLY CONSISTENT. VFUZ 338 

INPUT ARGUMENTS JHUST_6E_AVAILA8LE IN CAUUG PROGRAM IN VFUZ 339 

DOUBLE PRECISION FORM. VFJZ 343 


THE 3 RECTANGULAR COORDINATES OF POSITION 


UNITS OF OUTPUT ARGUMENTS, U KILL DEPEND UPON THE UNITS VFUZ 347 
EMPLOYED FOR SCO) AND RE. _ , VFUZ 34B 
OUTPUT ARGUMENTS ARE RETURNED TO CALLING PR03R4M IN DDUBLE VFJZ 349 


REFERENCE 

REFER TO MATHEMATICAL DESCRIPTION IN SUBPROGRAM WRITEUP 


REFER TO MATHEMATICAL DESCRIPTION IN SUBPROGRAM HRITEUP 


NO ESTIMATE AVAILABLE 


2 DIMENSION SCOIfUO) 

3 SAL-SINFJSCm) 

4 CAL=C0SFISCmi 

5 Cl=Il.O-i./F}**2 

6 EN*RE/SQRTF{CAL**2FC1*SAL**2) 

7 C2=IEN*SC!3))*CAL 

B U(l)=C2*COSF(SC( 2) ) 

9 U12 )=C2*SINF{ SCI 2) ) 

10 Ut3)=lEN*Cl+SC(3))«SAL 
RETURN 
END 

SUBROUTINE VRDZ FORTRAN SOURCE PROGRAM 

CAROS COLUMN 

LIST8 

L48EL m 




c 


c 


c 


0 2 

0 3 

0 A 
3 5 

0 6 

0 7 

o e 

0 9 

D 10 

9 11 

0 12 


SUBROUTINE VRDZ { N» Z, E, A, R 

"VERSION OF 07/16/63 

FORTRAN SUBROUTINE ... . 

FOR USE WITH FORTRAN 2 MONITOR ON IBH 70 90, 


. 7 .P 9 .A__ 


VRDZ 003 

VRQZ_0M_ 

VRDZ 005 
VROZ 006 

. _vaoz_oo7. 

VRDZ 008 

PURPOSE . VROZ 009 

CONVERTS RECTANGULAR PQSITIQN_C0QR 0 IN A T£S. X) F A P.QlUt TO THE VRDZ. 310 

SPHERICAL COORDINATES.. DF .THE .POINT. - VRDZ Oil 

VRDZ 012 

__KUUL.3U*. 


CALLING SEQUENCE 
D DIMENSION Z(3J 

„0 CA.LL.VR&LLL, l i£aA 

D CALL VRDZ(2,Z,E,A,R) 


III) 

Z 12) THE 3 RECTANGULAR COORDINATES OF POSITION 
Z( 31 . ... 

N = OPTION NUMBER TO DETERMINE TYPE OF SPHERICAL 
COORD.INATE DESIRED. 


MAGNITUDE .OF PQSITION_.VEC.TOR 

ANGULAR DISTANCE IN RADIANS OF VECTOR FROM Z1-Z2 
PLANE (E*G. ELEVATION, DECLINATION, LATITUDE) 

E IS RESTRICTED. TO .LIE _BETWE_EN .0 AND +■ PJ/.2 RADIANS 
OR BETWEEN 0‘ AND - PI/2 RADIANS 

: ANGULAR DISTANCE. IN RADIANS .OF PROJECTION OF VECTOR 
ONTO THE Z1-Z2 PLANE, MEASURED POSITIVELY COUNTER- 
CLOCKWISE FROM THE Z1 AXIS IE.G. RIGHT ASCENSION, 
LONGITUDE MEASURED POSITIVE EAST FROM GREENWICH) 

■ ANGULAR DISTANCE IN RADI4NS OF PROJECTION OF VECTOR 
ONTO THE Z1-Z2 PLANE, MEASURED POSITIVELY CLOCKWISE 
FROM THE 22 AXIS (E.G. AZIMUTH MEASURED POSITIVE 
CLOCKWISE FROM NORTH) 

A IS RESTRICTED TO LIE BETWEEN 0 AND t 2 PI RADIANS 


REFER TO MATHEMATICAL DESCRIPTION IN SUBPROGRAM WRITEUP 
RESTRICTIONS 


NO ESTIMATE AVAILABLE 


• START PROGRAM 

DIMENSION Z<3> 

R*SQRTFIZ(L)*»2*ZI2)**2*Z(3J*»2) 

se-zm/R 

C£=SQRTF( 1.0-S6»»2> 

C=R*CE 

GO TO 17,9), N 

CA=ZU)/C 

SA=Z(2)/C 

GO TO LI 

SA^zm/C 

CA*Z(2)/C 

E=ATAN2F<SE,CF) 

A= AT ANZ ( S A, CA ) 

RETURN 

END 


VROZ 01 A 
VROZ 015 
VfiQZ _3L6 
VRDZ 317 
VRDZ 010 
VRJ3.Z 019 
VROZ 320 
VROZ 021 
VRDZ 022 
VRDZ 023 
VRDZ OZA 
VRDZ 025 
VRDZ 026 
VRDZ 027 
VRDZ 028 
VRDZ 029 
VRDZ 030 
VRDZ 031 
VROZ 032 
VRDZ 033 
VRDZ 03A 
VROZ 035 
VROZ 036 
VROZ 037 
VROZ 03B 
VRDZ 039 
VROZ 0 AO 
VRDZ 0A1 
VROZ 0 A2 
VRDZ 0A3 
VROZ OAA 
VROZ 0A5 
VROZ 0A5 
VROZ 0A7 
VROZ 0A8 
VRDZ 0A9 
VRDZ 050 
VRDZ 051 
VRDZ 052 
VROZ 053 
VROZ 05A 
VRDZ 055 
VROZ 056 
VROZ 057 
VRDZ 058 
VRDZ 059 
VROZ 050 
VROZ 051 
VROZ 052 
VRDZ 053 
VROZ 05A 
VRDZ 055 
VRDZ 366 
VROZ 057 
VROZ 051 
VROZ 059 
VRDZ 070 
VROZ 071 
VROZ 072 
VRDZ 073 
VRDZ 077 
VROZ 090 
VROZ OR 1 
VRDZ 033 
VRDZ 39 A 
VROZ 0B5 
VROZ 036 
VROZ 037 
VRDZ 389 
VROZ 099 
VROZ 090 
VRDZ 091 
VRDZ 392 
VROZ 093 
VRDZ 09A 
VRDZ 095. 
VRDZ 396 
VRDZ 397 
VRDZ 398 
VRDZ 399 
VROZ 130 
VROZ 101 
VRDZ 102 
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XKEP 


FUNCTION XKEP 

C ARDS COLUMN 

UST8 
LABEL 
. FUNCJ1I! 

El = AM f t ECC * SINF(AM) ) : 

N = Q 

L E2L„=„.E1_ 

N = N l 
SE = SINF(El) 

„ U 

El = El * I (AM - El + ECC*SEL/_U.O. t ECC-CE)) 

G = ABSFUEl - E2J / El) 

JE1JS J=_2§l._2.i2.a 

l IF(G - ERR ) 5,5,1 
3 PRINT 4 

PRJNT 6,AMjE1,E£aS^L_ 


4 FORMAT (3&K0N0 CONVERGENCE IN KEPLERS EQUATION 
6 FORMAT 14E16.B.I5) 

SENSE LIGHT 2 , 

5 XKEP = El 
RETURN 
E£JD 

FUNCTION XKEPZ 
CARDS COLUMN 
HST8 
■LABEL 

FUNCTION XKEPZ (AH, ECC, SE,CE, ERR) 

„ El = AH ! ECC* S INF I AH U . 

N = 0 

1 E2 = El 

N = N + 1 
SE = SINFIE1) 

CE = XOSFIE1) 

_ El = El v MAH - El + £CC*SE ) / I1..0_- ECC*CEH 
G = A8SF! (El - E2) / El) 

IFIN - 25) 2,2,3 

2 IF! G - ERR ) 5,5,1 

3 PRINT 4 

PRINT 6, AH, El , E2,G,N 

4 FORMAT ( 36H0N0 CONVERGENCE IN KEPLERS EQUATION 

6 FORHAT ( 4E16.8, 15) 

SENSE LIGHT 2 . 

5 XKEPZ = El 
RETURN 

’END 

SUBROUTINE BACK 
CARDS COLUMN 
LISTS 


FAP 
COUNT 
LBL 
REH 
REM 
REH 
ENTRY 
> EFT 
TRA 
SXA 

sxo 

STl 

AXT 

CAL- 

ARS 

STA 

sus 

STA 

SU8 

STA 

CAL* 


CAL 
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BACK.X 

SUBROUTINE BACK 

PROGRAM IN CORE A. MOVES AN ARRAY FROM CORE 8 TO 
DESIGNATED LOCATIONS CORE A. 

BACK 

TEST FOR A OR B CORE 
ERROR - 8 CORE 
STORE MACHINE CONDITIONS 


STA 

SUB 

STA 

SUS 

STA 

RESET see 

ARRAY CLA 
LDQ 
LDI 
SEA 

STORE STO 
STQ 
STl 
TXI 
TIX 
TXH 
TXH 
TXL 

ONEHO CAL* 
ARS 
STA 


ERROR 
STOIR, 1 
STOI R , 2 
STOIND 
0,2 

3.4 
18 

ARRAY 
ADDR1 
ARRAY * 1 
AD0R1 
ARRAY+2 

2.4 
0,1 

SHLARY, 1 

1)4 

STORE 

ADOS 1 

ST0RE*1 

ADDR1 

ST0RE+2 


**1,2,3 
RESET, 1,3 
ARRAY3, 1,2 
THQWOS , 1,1 
RETURN, 1,0 
3,4 


ZERO I.R. 2 

FORTRAN ADDRESS BLOCK FROM CORE B 
SHIFT TO ADDRESS PORTION DF WORD 
STORED FOR REFERENCE 
SETTING UP TRANSFER O c THREE WORDS 
AT A TIME 


ARRAY LENGTH 
PLACED IN I.R. 1 

SMALL ARRAY, LENGTH EQUAL TO 1 OK 2 
FORTRAN ADDRESS BLOCK IN CORE 4 
STORED FOR REFERENCE 
HILL BE STORING THREE WOROS AT 4 TIME 


18 
ARRAYl 


TRANSFER OF WORDS 


HOVE DOWN THROUGH BLOCK 

REDUCE BLOCK BY 3 

IF 3 WORDS, SET I.R. 1=0 

TEST FOR REMAINING (L OR 2) WOROS 

TRANSFERRING TOTAL OF 1 WORD, OR 
REMAINING WORD FROM A TO B CORE 
REMAINING WORD FROM A TO 8 CORE 
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CAL 

1*4 

X 

-STA... 

£IPR£1 

-X_ 

SEB 


X 

ARRAY1 CL A 

• » 1 2 

„x 

.SEA 


x 

STOREl STO 

**,2 

x. 

RETURN LXA 

STOIR, 1 

RETURN TO- FORTRA 

.. .iW... 

STQJ_R,2_ 

JL - . 

LDt 

STOINO 

X _ 

TRA 

A, 4 

X 

-S.HLARY. TXL „ 

- OMlU 


TWOWDS CAL* 

3, A 

TRANSFERRING TOTAL OF 2 WORDS,. OR 

ARS 

18 

REMAINING 2 WORDS FROM A TO B COR 

.SJA . 

. arbAtz , 

x 

SUB 

AOOR1 

X 

STA 

ARRAY2+ l 

x._ 

-CL A . 

„ It* 

_JS_ 

STA 

STORE2 

X . 

SUB 

AODR1 

X 

-STA . 

. SJ08E2H 

. -X_ 

SEB 


X 

ARRAY2 CLA 

•*»2 

X 

LDQ 

. **» 2 

. -X . 

SEA 


X 

STORE2 STO 

’ *•» 2 

X 

STQ 

**.2 

_x 

TRA 

RETURN 

X 

ARRAY3 AXT 

0,1 

3 WORDS, ZERO-I.R. 1 

TRA 

reset . . 

JH . . . . 

ERROR HTOA 

3 


RCHA 

READ 


TCOA 

* 


TRA 



READ IOCD 

WORDS, 1,9 


WORDS BCI 

9,1** SUBROUTINE 

BACX CANNOT .BE EXECUTED FROM B CORE •* 

ADDRI OCT 

1 


STOIND BSS 

1 


STOIR BSS 

l 


END 



* SUBROUTINE STASH 


• CARDS 1 

COLUMN 


* LISTS 



* FAP 



COUNT 

80 


LBL 

STASH, X 


REM 

SUBROUTINE STASH 


REM 

PROGRAM IN CORE A 

. HOVES an ARRAY FROM CORE A TO 

REM 

DESIGNATED LOCATIONS CORE B. 

ENTRY 

STASH 


STASH EFT 


TEST FOR A OR B CORE 

TRA 

ERROR 

ERROR - B CORE 

SXA 

STOIR, 1 

STORE .MACHINE CONDITIONS 

SXD 

STOIR, 2 

X 

STI 

STOIND 

X 

AXT 

0,2 

ZERO UR. 2 

CAL 

1,4 

FORTRAN ADDRESS BLOCK FROM 

STA 

ARRAY 

STORED FOR REFERENCE 

SUB 

ADDRI 

SETTING UP TRANSFER OF THREE WORDS 

STA 

ARRAY + 1 

AT A TIME 

SUB 

ADDRI 

X 

STA 

ARRAY+2 

X 

CAL* 

2, A 

ARRAY LENGTH 

PDX 

0,1 

PLACED IN I.R. 1 

TXL 

SHLARY, 1,2 

SMALL ARRAY, LENGTH EQUAL TO 1 OR 2 

CAL* 

3, A 

FORTRAN ADDRESS BLOCK TO 

ARS 

18 

SHIFT TO ADDRESS PORTION' OF WORD 

STA 

STORE 

STORED FOR REFERENCE 

SUB 

ADDRI 

WILL BE STORING THREE WORDS AT A TIME 

STA 

STORE*-! 

X 

SUB 

ADDRI 

X 

STA 

STORE+2 

X 

ARRAY CLA 

*• , 2 

TRANSFER OF WORDS 

LOU 

*• , 2 

X 

LDI 

» • , 2 

X 

SEB 


X 

STORE STO 

*.,2 

STORED 

STQ 

* » , 2 

X 

STI 

• *, 2 

X 

TXI 

•*-1.2,3 

MOVE DOWN THROUGH BLOCK 

SEA 


X 

T I X 

ARRAY, 1 ,3 

REDUCE BLOCK BY 3 

txh 

ARRAY3, 1,2 

IF 3 WORDS, SET I.R. 1 = 0 

TXH 

T WORDS .1,1 

TEST FOR REMAINING (1 OR 2) WORDS 

TXL 

RETURN, 1,0 

X 

ONE WO CAL 

1.4 

TRANSFERRING TOTAL OF 1 WORD, OR 

STA 

ARRAY 1 

REMAINING WORD FROM 4 TO B CORE 

CAL* 

3, A 

X 

ARS 

10 

X 

STA 

STOREl 

X 

ARRAY I CLA 

**,2 

X 

SEB 


X 

STOREl STO 

*» , 2 

X 

RESET SEA 


X 

RETURN LXA 

STOIR, 1 

RETURN TO FORTRAN 
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LXO 

101 

. STQ|Jit.2„ 
STOIND 

X- - 

X 

US 

TM 

SMLARY TXL 
TWOWDS CAL 

4.4 

ONERD.UI 

1.4 

X. - 

„ TESt-FOB 1 OR 2 WORDS IN ARRAY 
TRANSFERRING TOTAL OF 2 WORDS. 

STA 

ARRAYS _ 

._flE.M4.miNG 2 WORDS FROM A TO B 

. CORE 

SUB 

ADDRI 

. X. . .. 


SI4- 

... ARRAYitL 

X 


.CLA* 

3,4„ . . 

X- 


AR$ 

IB 

. __x. 


SJA__ 

ST0RE2 



SUB . 

_ ADDRI .. 

-X. 


STA 

ST QR 62+1 

_ X 


ARRAY2 CLA 

**.2 



LOQ 

**,2 

.X. 


SEB 




SL0RE2. ST.g„. 


x_ 


STQ 

*+,2 

X . . 


TRA 

RESET 

X . 


4SAAy3 AXT 

Jkl 

3.HMPS,_Zfa;LUB J _ 1 — 


TRA 

ARRAY 

X 


ERROR WTDA 

3 



.. - . RCHA. 

RE AIL_ 



TCOA 




TRA 

4,4 



PE 4.0. . I PCD 

. _W0RDS,l,.9__ 

. 

_ 

WORDS BCI 

9,1** SUBROUTINE 

STASH CANNOT BE EXECUTED FROM B C 

ORE • 

ADDRI OCT 

1 



STOIND BSS 

1 . 



STOIR BSS 

I 



END 




SUBROUTINE UM(L4„ 



• CARDS 

COLUMN 



* LISTS 




*. .LABEL 





SUBROUTINE TIHCMOJO.TSEP, 

,S,F,OT) 


C USES SUBROUTINE TIHEC AND 

GIVES OUTPUT ON 


C TAPES 

A3. ANO A3. . . 



C VERSION OF 7/22/63 



3 READS 

A CARD FROH Ca'rD READER CONTAINING CALENDAR DATE AND 

UT2 OF 


C DESIRED START AND END TIMES FOR CALCULATION OF AN EPHEMERIS, AND 

C THE TIME' INCREMENT OF .THE EPHEMERIS IN SECONDS. CALCULATES TIME 

C INTERVAL IN SECONDS FROM SOME EPOCH (DJO,TSEP) TO THE START ANO 

C END TIMES. 

C WRITES CALENDAR DATE AND UT2 ON TAPjj UNIT A3. 

C 

C INPUT FROM CALLING SEQUENCE 

C DJO = EPOCH JULIAN OATE AT 0 HOURS UT2. 

C TSEP = EPOCH UT2 IN SECONDS 

C 

C INPUT FROM CARD READER 

C NHS, NDS, NYS = HONTH, DAY. YEAR OF START DATE 

C NHF.NOFjNYF = HONTH, DAY, AND YEAR OF END DATE 

c 

C NHS.NHNStTSS = HOUR, MINUTE, SECOND (UT2) OF START TIME 

C NHF, NHNF, TSF = HOUR, MINUTE, SECOND IUT2I OF END DATE 

C OT = TIME INCREMENT OF EPHEHERI S IN SECONDS 

C 

C OUTPUT 

C S = TIME IN SECONDS FROM EPOCH TO START TIME 

C F = TIME IN SECONDS FROM EPOCH TO END T [H£ 

C DT * TIME INCREMENT OF EPHEHERI S IN SECONDS 

C 

C REQUIRED SUBPROGRAMS 

C 

C OJULi JULCAL 07/22/60 - FAP DOUBLE ENTRY PROGRAM 

5015 FORMAT 1211X12) , IX, IA, 2 13.F7.3, 13, IX, 1 2, IX, 1 A , 21 3,F7. 3 ,F11.3 ) 

6016 FORMAT (1X1 2, IH/ 1 2 , 1H/ 1 4 ,7X1 1H START DATE/ 1 XI 2 , 1 3, F 7. 3 , 5X , 

1 I5H START TIME-UT2/IXF12. 3,5X2 3H TIME I NCREMENT-SEC0NDS//1XI 2, 

2 IH/I2, 1H/I4.7X9H END OATE/ LXI2, 1 3, F7. 3, 5X1 3H END TIHE-UT2 ) 

READ 6015, NMS, NOS »NYS,NHS*NMNS, TSS.NMF > NDF , NYF , NHF , 

' l NMNF.TSF.OT 

WRITE OUTPUT TAPE 3 , 6016, NMS , NDS, NYS, NHS, NMNS, TSS , DT , NMF , NDF , NYF , 
1 NHF , NMNF » TSF 

WRITE OUTPUT TAPE 8 , 6016 , NMS ,NDS, NYS, NHS, NMNS, TSS , DT , NHF , NDF , NYF , 
l NHF, NHNF, TSF 

PRINT 6016, NHS, NOS, NYS, NHS,. NMNS, TSS, DT, NMF ,NDF, NYF, NHF, NMNF, TSF 
IF (SENSE SWITCH 6) 1,2 

1 PRINT 6016, NHS, NDS, NYS, NHS, NMNS, TSS, DT, NMF, ND C , JYF, NHF, NMNF, TSF 

2 DJSO=OJUL(NHS»NOS,NYS) 

DJFQ*DJULtNMF,NDF»NYFJ 
THS^NHS *3600 
TMNS«NMNS*60 
TS=THS+THNS*TSS-TSEP 
THF=NHF»3600 
TMNF*NMNF»60 
TF»THF*TMNF*TSF-TSEP 
DJS*DJSO-DJO 
DJF=DJFO-DJO 

3 $=DJS*86^00.+TS 

F*OJF*86600.*TF 
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RETURN 

JLND 

SUBROUTINE SUN 
CAROS COLUMN 
.LISTS. 


THEORY AND ANALYSIS OFFICE GS£C - 

ONLY COMPUTES LONGITUDE IN RADIANS - ECLIPTIC 
yERSIQiLPF 9/15/6* 

WOOLARD 'S ABBREVIATED YERSIDfL^F ,Ne5C3HB'S THEORY OF THE SUN. 


OJ = JULIAN DATE AT.Q„HOURS EPHEMERIS TIME. 

"^ H JS RESTRICTED TQ LIE BETWEEN 0 AND *2 P|" RADIANs! 


OUJPUX 


TRUE EQUINOX 


CL 


; LONGITUDE IN RADIANS. 


REFERENCES - . - . 

ASTRONOMICAL PAPERS PREPARED FOR. THE USE OF THE AMERICAN 
EPHEMERIS AND NAUTICAL ALHANAC. VOLUME 15, PART 1 (THEORY 
* OF THE ROTATION OF THE EARTH AROUJJO.JTS CENTER HASS - 
BY EDGAR N. WOOLARD - PAGES 53, 64-66 ). 


C RESTRICTIONS 

C WOOLARD HAS USED NEWCOMB'S THEORY OF VTHE SUN, NEGLECTING 

C ALL PERIODIC TERHS WITH COEFFICIENTS GREATER THAN .001 

C * SECONDS OF ARC IN LONGITUDE AND LATITUDE, AND GREATER 

C THAN 7 UNITS IN THE 8TH DECIMAL OF THE L03ARITHH 

C OF THE RADIUS VECTOR. 

C COMPUTE TIME IN JULIAN CENTURIES ELAPSED SINCE 1900 JAN. 0.5 ET 
C 

DIMENSION S8(35),C(35),C8(23),E(23}j59(28) I H(28I,C9(4l)»S(45) 

PRT 1=0 J-24 I 5020.0 
PRT2=ET/6. 28318531 
D T=( PRT1+PRT2 ) /36525-0 

T2=T*T 
T3=T2*T 

C COMPUTE FUNDAMENTAL ARGUMENTS 
C 

C MEAN LONGITUDE - SUN 

X = 0.5284469 E-5 *T2 

D CL1 = 4.881627934112 + 628. 331950990909*T + X 

C MEAN ANOMALY - VENUS 

C 

X = 0.22446873 E-4 *T2 

0 51 = 3.710626228126 ♦ 1021.328348655046*T *■ X 

C MEAN ANUMALY - EARTH 

C 

X = 0.2617994 E-5 *T2 + 0.58178 £-7 »T3 
0 G2 = 6.256583580497 ♦ 628- 301945726741*T - X 
C 

C MEAN ANOMALY - MARS 


X » 0.3156137 E-5 *T2 

0 G3 = 5.576840377809 + 334.053S49190822*T ♦ X 

C 

C MEAN ANOMALY - JUPITER 

0 G4 = 3.932889060231 ♦ 52.965367620264*1 

C 

C MEAN ANUMALY - SATURN 

0 G5 = 3.062637351924 ♦ 21.320095075899*T 

C MEAN ANOHALY - MOON 

X = 0.160424946 £-3 *T2 ♦ 0.251133 E-6 *T3 
D SL = 5.168000345744 + 8328.691103668024*1 «• X 

C 

c MEAN ANOHALY - SUN 

C 

X = 0.2617994 E-5 *T2 ♦ 0.58178 E-7 *T3 
0 SL1 = 6.256583590497 +• 628.3019457Z6741-T - X 

C MEAN ARGUMENT OF LATITUOE - MOON 

X « 0. 56044461 E-4* T 2 ♦ 0.5818E-8-T3 
D F = 0.196365054B87 * 8433.466291171947*T - X 

C 

C MEAN ELONGATION OF HOON FROM SUN 

X = 0.32967E— 7*T3 - 0. 25064867E-4*T2 
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* 4,523601514852 - 33. 757146246551* T 


0 Gl = HOOF JG1 ,6.283185307179586) 

a_ Q* = &QQF I. 63 ,6,283l853 97A195a6)I 

0 G5 =~H00r*{ l G5^ 6^2831853071.70586) 

0 SL^ - HOOF | SI ,6,28318530717.9586) 

D 0 MODF (D ,6.283185307179586)“ 

0 A HOOF IF ,6.283185307179586) 

- H - ? HQDPJH.. »A._2ailS.53Jmi9.586.)... 

C COMPUTE EXCEPTIONAL ARGUMENTS 

C__ . . . 

1400 EAl *8.0*St:i-t5.0*G3 

EA2 =3.0*G4-8.0*G3+4.0*SLl 

£A3 -* 785 ^58J633.?7448E r ^*t^e Jt 2*51+i3.0<tSLl 

EA4 =7.0»SL1- (3,0*GI+4.0*G3) 

EA5 = {F4-W)MF+H) 

. .. EA6. =E45-{DHU 

- COHPUTE SINES AND/OR COSINES OF 16 ARGUMENTS 
1500 SStl »SINFCSU)- 
CSL1 “COSEISLl) 

SSL = SiNFlSL) 

* CSL * COSFtSL) 

SOI *SINFJG11 . 

€61 =CQSFC6U 
SG3 *SINF(G3) 

CG3 *CQSF{G31 
SG4 *SINF(G4). 

CG4 =C0SF(G4) 

SG5 *SINF(G5) 

CG5 *C0SF(G5) 

SF aSINFIF) 

SO sSINFtO) 

CO *COSFID) 

SW *SINF{W) 

CM *COSF(W) 

C28 =COSF(EAl) 


S49 «$INF(EA2) 

C49 *C0SF£EA2) 

S51 =SINF(EA3) 

C51' =COSF16A3) 

C52 =C0SFCEA4) 

S4b =$ I NF( E AS ) 

S47 *5INF{ EA6) 

544 A * SSL*CD 
S448 ■ C5L*S0 

544 = S44A+S448 

545 = 544 A-S44B 

C45A « CSL* CD 
C458 * SSL«SO 
C45 = C45A+C45B 

C75 = C45A-C458 

C76 = C45A*I4.0*C0*C0-3.0)+C45B*I 3.0-4. 0*50*SD) 

- EVALUATE ALL OTHER SINES AND COSINES IN TERMS OF ABOVE 
X =2.D«CSL 1 

501 ®X *SSU 

cot *X *csn~1.0 

X *2»3*CQl 

502 MX *1.0)*SSL1 
C02 »IX -1.0)*CSL1 

503 «2.3*$tf*Cw 

504 = $SU*CGl-CSll*SGl 
C04 «CSL1*CG1+SSL1*5G1 

505 =S04 *CGI-C04 • SG 1 

COS *C04 *CG1+S04 *SG1 
X =2.3*C04 

506 -X *S04 

C05 *X *C04— t.O 
SO? ®SSL1*C06+CSLI*SQ6 
CO? *CSU*C06-SSU*S06 
X »2.3*C06 

S38 a(X +1.0) *S34 
COB = 1 X -1.01 *C04 

509 «S$Li*C08+CSU*S08 

C39 *CSU»C38-S$U*S03 

510 “SpSL 1*C09+CSL l*$G9 

CIO *CSL1*C09-5SL l*S09 
X *2.3*C06 

511 *X *S06 
Cti *X +C06-1.0 

512 aSSLt*CU+CSU*Sll 

513 *S01 *Cli+C01 *su 
ei3 *coi *cu-soi *su 


m 



SI* =SU *CO*«-CU *SQ*. 

.C 1* =C11 »C0*-S1 1. *SQ*_ 

S15 =S01 *Cl*+C0l *S1* 

C16 =C02 *Ct*-S02 *Sl* 

.Cl 7. _H<L9 *_lC1*=3&4_±S14_ 

S 18 =SSL1*CG3-CSL1*SG3 
CIS =CSLl*CG3+SSH«SG3 
-519 =5lS_»CS3rClS_*SG3_ 

C19 =C18 *CG3+S10 *SG3 

X =2.0*C18 

^20 fi: tS18 .. 

C20 =X *C18-1.0 
S21 =S20*CG3-C20*SG3 

..C21 =£23 ?C G3±S 2 0 *SS3 

C22 =C18*C2D-S18»S20 

S23 =S21*CG3-C21*SG3 

C23 =C21*CG3tS2l*SG2_ „ 

S2* =SSLI*C23+CSL1*S23 
C2* =CSL1*C23-SSL1«$23 

S25 ,=S2* *CG3-C2* *$G3- 
C25 =C2* *CG3«-S2* *$G3 

C26 =CSL1»C25-SSL1*S25 

S27 =S18*C25+C18*S25 . 

C27 =C18*C25-S1B*S25 

529 =SSL1*CG*-CSL1*SG* 

C29 =CSLl?CG*+SSLl*SG* 

530 =SSL1*C29+CSLI*S29 
C30 =CSL1*C29-SSLI*S29 

531 =S29 *CG*-C29 *SG* 

C31 =C29 *06*1-529 *SG* 

X *2.0 *C29 

532 =X *S29 
C32 =X *C29-1.0 

C33 =CSL1*C32-SSL1*S32 

S3* =S31 *CG*-C31 *SG* 

C3* =C31 *CG*+S31 *SG* 

535 =S32 *CG*-C32 *SG* 

C35 =C32 *CG*+S32 *SG* 

536 *S29 *C32*C29 *S32 

C36 =C29 *C32-S29 *532 

C37 =C35 »CG**535 »SG* 

S38 =S35 *CG*-C36 *SG* 

C39 =CSL1*CG*-SSL 1*SG* 

S*0 =SSL1*CG5-CSL1*SG5 
C*0 =CSLL*CG5+-SSL1*SG5 
C*l =C*0 *CG5«-S*0 *SG5 
X =2.0 *C*0 

C*2 =X *C*0-1.0 
S*3 =SSL1»CD -CSH*SD 
C77A = CSL1*C0 
C778 = SSL1*SD 
C77 = C77A-C778 
C78 = C77A+C77B 
X =CSL 1*C*9 
Y =SSL1*S*9 
C*8 *X *Y 
C50 =X -Y 

: COMPUTE LONG 1 T JOS OF SUN 1MCAN LONG. 
1300 Cll )=SSll*U33502.E-6) 

C ( 2 )=S01 •(♦ 351. E-6) 

C(3 1=S02 *(* 5.c-o) 

Cl* 1=S*9 *{ + 25. e-6 1 

CIS 1=S0* *1- 20. E-6) 

Cl 6 )=S05 «(* l*.E-6) 

C 1 7 I =S37 •(- 9. £-6) 

CIS ) =S09 *1- 2. E-6) 

CI9 )=S10 *1- 3. C-6) 

Cl 10) =S5l *1* 7. E-6) 

C I II ) = S19 •(+ l.t-6) 

Cl 12) = S23 « l ♦ 3. E-6) 

CIIJ) = S19 • («■ 3. C-6) 

Cl 1*) =S21 *1+ l.e-6) 

Cl 15)=S2* *1- 2. £-6) 

Cl 16) =S23 *1* l.C-6) 

CI17)=S25 *1- 1.6-6) 

Cl 18) =SG* *1- 13. e-6) 

C I 1 9 ) = S 32 *1- 13. E-6 J 

C(20)=S31 *1- 7.6-6) 

C t 21 ) =S35 *1- 3. £-6) 

CI22)=S3* *1- 1.6-6) 

C123)=S*0 *1- 2. E-6) 

C(2*)=SG5 *1- 2.6-6) 

C 1 25 ) =SSL 1*1- 9 358 . E -8 ) » T 
C ( 26 ) = $01 *1- 175. E-8) *T 

C127)=SSL1*I- 2S.E-8)*T*T 

C(28)=SD • I ♦ 31.6-6) 

C 1 29) =S** *1* l.E-6) 

Cl 30) = S*5 *1+ 2. C-6) 

Cl 31 ) =S*3 *1- 1 .E-6) 

C 1 32 ) =SW •(- B*. C-6) 

C 1 33) =S03 *1* l.C-6) 

CI3*)=S*7 *1— 6. C-6) 

Cl 35)=S*5 *1- l.C-6) 

1900 El L )=C0* *1* ll.t-6) 


TABLE 0) MODULO 2PI 
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E{2 )*C06 • !- 23.E-6) 

£13 )=C07 »l+ 9.E-6) 

EI4 ) *C08 • (- 3.E-6) 

E( 5 ) =C09 *(♦ 7.L-6) 

E(6 )=C19 *(♦ 4.6-6) 

E ( 7 )=CU *t- l.E-6) 

, E 1 8 ) =C13 *1 + l.E-6 ) 

EJ 9 >=C16 «lt l.E-6) 

E ( 10) -C51 *1+ 6.E-6) 

E 1 1 1 ) =C49 *<* 18.6-6) 

E(L2J3Cia_*l- 1 ♦ Er61 
E ( 13}=C20 *1+ 10.E-6) 

EU4)=C19 *1- B. 6-6) 

E i 15) ?C21 • 2.E,-6). 

£I16) s C23 »I* 3.6-6) 

E 1 17) =C28 *1 + 1.6-6) 

£ 1 18 ) =033 ft- 1.6-6) 

6 I 19) =C29 • !- 35.6-6) 

E l 20 ) =CG4 • !- 1.6-6) 

. E.1'21 ) =031 *{- 3.6-6) 

E 1 22) =C36 *1- 1.6-6) 

EI231=C52 *l<- 1.6-6) 

T8S = CU> 

OG 1930 . J s 2* 35 
1930 TBS * TBS+CIJ) 

_TBC = Ell) 

DO 1940 J=2t 23 
1940 TBC s T8C + E I J ) 

TABS = TBS +.T8C 
1950 CL =MQDF ( T AB8+CL1 
9000 RETURN 
END 

* SUBROUTINE ARKTAN 

* CARDS COLUMN 

* LISTS 

* LABEL 

SUBROUTINE ARKTAN! Y , X, 2, N) 

. „ IP (X) 6,5.6 

5 IF IY) 7,8,9 

7 IF (N) 10,11,10 

11 2 = -901 

go ru 500 

10 Z = -1.5707964 
GU TO 503 

8 2 = . 0 . 

SO TO 503 
9 IF. (N) 12,13,12 
132 s 90. 

SO TO 503 

12 2 s 1.5707964 
GO TU 500 

6 IF (Y) 14,15,14 

15 IF (X) 16,17,17 

16 IF IN) IB, 19, IS 
19 2 = ISO. 

GO TO 503 
18 2 = 3.1415927 
GO TO 503 

17 2 s 0. 

GO TO 593 

14 IF ACCUMULATOR OVERFLOW 30,30 

30 IF viJOTIENT JVlRFLOh 31,31 

31 IF DIVIDE CHlCK 32,32 

32 A = ABSf IY) 

B = ABSF IX) 

2 s A/B 

IF DIVIDE CHCCrt 33,34 

33 2 = 3. 

GO TU 533 

34 2 = ATANFI2) 

IF IY» 63, 51, 51 

50 IF (X) 52,53,53 

52 2 = 2-3.1415927 
CO TO t>33 

53 2 = -2 

SO TO 603 

51 IF (X) 54,603,690 

54 2 = 3.1415927-2 
SO TO 603 

600 IF (N) 530,55,530 

55 2 s l 1S0./3. 1415927) *2 
500 RETURN 

END 

• SUBROUTINE TESCOV 

• CAROS COLUMN 

• LISTS 

• FAR 

COUNT 23 

LBL TESCOV, X 

ENTRY TCSCOV 

TESCOV CLA> 1,4 

BCVDEC ARS> IB * 

, ANA. IBAOR 

L00‘ BLNKS 


6. 2 B3 18 5307 179566 1 


CONVERTS 3 DIGIT INTEGER INTO BCD FORM 


ALLOTOOl 

ALL0T932 
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“ BCVDT 
18ADR 
. JIUJK.S 

CH65K. 

XN32K 

B32 * 


vop BCvnr-,6 

I/OP BCVOT' 1. ti> 

VDP BCVDT «■■* . 1 

VOP BCVDT«-3,,6 

VDP .. _BCVDT^„6 
RQL 18 

STQ* 2,4 


DEC ' "^WOT, -^6000, -T621A400, -167772180.-10737^82^ 

OCT 000000077777 

JSC i .U — 

END 

SUBROUTINE CH65K TESTS FOR 65K, 

c a rds. . c oujhn : 

LIST8 

FAP 


LBL 

ENTRY 

_ ,SEB,_ 
EFT 
TRA 


**4 
. B32 


_ FORTRAN calling'sequence~- 
CALL CH65KINJ 


N 


EFT 

TRA XN32K 

TRA* \\t . MA CHIN E IS IN 65K — N » 0 

OCT 000004000000 ' 


no 



APPENDIX Vm (PART A) 
SAMPLE INPUT 
FOR MAIN PROGRAM ONE 


1X1 



RELAY 2 12 STATI0N TEST 

+04+01+01-01 +4 5000. 

33333 640114 2157 00000 , 00000 

+17470063+01+23653052+00+81153895+00+62823296+01+32527117+01+38506655+01 TEST 
33333 640114 2157 00000 +00000000+00 
01/15/1964 20 00 00.000 01/16/1964 20 00 00.000 +120. 

+12+00+00 

90.0 0.0 178. 25. 

C0MNUT -75 00 0.000 +40 00 0.000 0.0 

C0MAND -068 40 00.000 +44 54 00.000 38. 

C0MHIL -05 10 29.0 +50 02 58.0 350.0 

C0MGER +10 00 00.000. +51 00 00.000 50. 

C0MTEL +13 36 5.000 +41 58 41.000 2168.6 

C0MRI0 -43 22 7.000 -22 57 9.000 0.0 

C0MNUT -75 00 0.000 +40 00 0.000 0.0 

C0MANO -068 40 00.000 +44 54 00.000 38. 

C0MHIL -05 10 29.0 +50 02 58.0 350.0 * 

C0MNUT -75 00 0.000 +40 ‘00 0.000 0.0 

C0MAND -068 40 00.000 +44 54 00,000 38. 

C0MHIL -05 10 29.0 +50 02 58.0 350.0 


112 



APPENDIX Vm (PART B) 
MAIN PROGRAM ONE OUTPUT 
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BAR GRAPHS 
TAPE A3 


R ELAY 2 


RELAY 2 12 STATION TEST 


5 .079999 9 8 E 03 FEET PER NAUTICAL HI.E _ 

5378.388 EQUATORIAL RADIUS OF EARTH IN.KM 

297.0 INVERSE OF FLATTENING; 

~3»9B626S76E 05 GH I KM. CUBEO/SECONDS SQUARED J_ .. 

HARMONICS OF EARTHS GRAVITATIONAL POTENTIAL 
t .0821 90 E— 03 J2 

-2.285000 E-06 J3 

— 2. 123000E— 05 . J* _ _ 

—2. 320000E— 07 J5 

EPOCH 64 1 1* 21^57 ,0. 

A E I M OMEGA THETA 

j .747006 3E 0 0 2 .36530S2E- 01 8. 1 1S38 9 5E-01 6.2823296E 00 3.25271 17E 00 3.8506655E^O0 , 

DRAG EFFECTS - T (P.QJ N 12.01 N <3.01 

84 114 2157 0_ . 0.. 

LOOK ANGLE CALCULATIONS - START AND END TIMES 

1/15/1964 ‘ START DATE “ 

20 0 0. START TIME-UT2 

120.000 TIME INCREMENT-SECONDS __ 

1/16/1964 END DATS 

20 0 0. END TIHS-UT2 


STATION 

COMNUT 
COMAND 
COMHIL 
COMGER 
COMTEL 
C OMR 10 
COMNUT 
COMAND 
COMHIL 
COMNUT 
COMANO 
COMHIL 


LOCAL STATION PREDICTIONS FOR — 


LONGITUDE 


LATITUDE HE IGHT_tMETERS) 


-5 10 29.000 


38.00 
350.00 

50.00 
216B.S0 


CONTROL STATIONS ARE 
COMNUT 
COMAND 
COMHIL 
COMGER 


NO STATION PRINT OUT IF 


ELEV AT I ON IS LESS THAN 


0 


DEGREE S 


S IS PRINTEO IF THE ELEVATION IS GREATER THAN OR EQUAL TO 
R IS PRINTEO IF THE ELEVATION IS GREATER THAN OR EQUAL TO 
A IS PRINTED IF THE ELEVATION IS GREATER THAN OR EQUAL TO 


0 AND LESS THAN 5 DEGREES 
5 AND LESS THAN 10 DEGREES 
10 DEGREES 


A T IS PRINTEO OF RANGE IS GREATER THAN 0.50000000E 04NAUTICA- MILES 


SPIN AXIS COORDINATES ARE 

178.0 DEGREES RIGHT ASCENSION 

25.0 DEGREES DECLINATION 


THE 3 DIGIT NUMBERS UNDER THE, STATION NAMES ARE THE SPACECRAFT LOOK ANGLES. 
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ORBIT NUMBER 0 

MUTUAL VISIBILITY OF 33333 FOR THE FOLLOW! VO STATIONS 
OATEIMM/OO/Tr) ss 1/15/64 
HIL G£« TEL RIO SUT AN3 
063 A 072 


20 2 
20 4 
20 6 
'20 8 
2010 
2012 
2014 
2016 
2013 
2020 
2022 
2024 
2026 
2026 
2030 
2032 
2034 
2036 
2038 
2040 
2042 
2044 
2046 
2048 
2050 
2052 
2054 


NUT AND 
068 A OT2 A 
0T1 A 075 A 
075 A 079 A 
078 A 083 A 
083 A 087 A 
088 A 093 A 
094 A 099 A 
101 A 106 A 
108 A 114 A 
116 A 123 A 
123 A 132 A 
128 A 139 A 

131 A 142 A 

132 A 143 A 
131 A 141 A 
128 A 137 A 
126 9 133 9 

129 5 


HIL 


114 5 
119 S 
124 S 
131 5 
137 5 
144 5 
152 5 
160 5 
168 S 
177 S 


071 A 075 A 

075 A 079 A 

079 A 083. A 

083 A 087 A 

089 A 093 A 

094 A 099 A 

101 A 106 4 114 S 

108 A 1 14 A 119 5 

116 A 123 A 124 5 

123 A 132 A 131 5 

1 29 A 139 A 137 5 

131 4.142.4 144 5 

132 a”"T 43 A 152 5 
131 A 141 A 1SQ 5 
128 A 137 A 16B 5 

087 S 126 9 133 < 

08B 9 129 5 

088 9 
088 A 
087 A 
086 A 
083 A 
081 A 
078 A 
075 9 
072 S 
070 5 


177 1 


NUT AND HIL 
068 A 072 A 
Sri 'a 075 A 
075 A 079 A 
078 A. 083 A 
083 A 087 A 

088 A 093 A 

094 A 099 A 

101 A 106 A 114 5 

108 A 114 A 119 5 

116 A 123 A 124 5 

123 A 132 A 131.5 

128 A 139 A 137 5 

131 A 142 -A 144 5 

132 A 143 A 152 5 

131 A 141 A 160 5 

128 A 137 A 168 5 

126 9 133 9 177 5 

129 5 


TAPE A8 
WORLD MAP 

LOCAL STATION PREDICTIONS 
SUN LIGHT HISTORY 


RELAY 2 12 STATION! TEST 


6. 0799999 8£ 03 


FEET PER NAUTICAL H|_5 


5378,389 

297,0 

3,9862687 6E 05 


EQUATORIAL RADIUS OF EARTH IN KM 

INVERSE OF FLATTENING 

GM (KM. CUBED/ SECONDS SQUARED) 


1 .082190E-03 
-2. 285000 E-06 
-2. 12 3000 £-06 
-2.320000E-OT 


HARMONICS OF EARTHS GRAVITATIONAL POTENTIAL 


33 

34 

35 


EPOCH 64 1 14 21 57 0. 

A £ 1 M OMEGA THETA 

1 ,747006 3E OQ 2.36530S2E-01 3.US3895E-01 6,2823296= 00 3.2527117E 03 3.8506655E 00 

DRAG EFFECTS T (P.Ol M (2.0) N I3.Q1 

64 114 8157 0 0, 

LOOK ANGLE CALCULATIONS - START AND END TIMES 


1/15/1964 
'20 0 0. 
120.000 


START DATE 

START TIME-UT2 

TIME INCREMENT— SECONDS 


1/16/1964 690 OAT= 

20 0 0. END T I ME— UT 2 


CONTROL STATIONS ARE 
COMNUT 
COMANO 
COMHIU 
COKGER 


S IS PRINTED WHEN THE SATELLITE IS IS THE S3SL1GHT 
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APPENDIX Vm 
PART C 

OUTPUT OF MAIN PROGRAM TWO 
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TAPE A3 

WORLD MAP AND BAR GRAPHS 


SfiWir PACKS. DPB IT * l CCHPUT INC SYSTEM 
SLAY TEST 12 STATIONS 

LQ.QE-09 TOLERANCE REQUIRED FOR KERZ' SUBSOUTI NE 

6376*308 EQUATORIAL RAOIUS OF EARTH-ilN^ KM 

297.0 INVERSE OF FLATTENING _ 

3 .966 J6876E 05 GH (KM. CUBED /SECONDS SQUARED ) 

t-ARMCNICS OF EARTHS 'GRAVITATIONAL PCTENTIA! 
1.082190E-03 J2 

-2.285Q0OE-O6 J3 

-2.1220006-06 J4 

-2.32000CE-07 J5 

BRCUHER HARMONICS COHP.UTEO .FROM J2.J3.J4, *ND J5 
2.20138180E 04 K2 (KILOMETERS SQUARED) 

5.92951238E 05 K3 {KILOMETERS CUBED) 

1.31772552E 09 KA (KILOMETERS FOURTH POWER) 

2.AA9 2035AE 12 K5 (KILOMETERS FIFTH POWER) 

1/IA/196A FPCCH CAIE OF PARAMETERS 

21 57 -0. EPOCH TIME OF PARAMETERS-UT2 

INPUT OPIION NUMBER 
INPUT PARAMETERS ARE 

BROUWER MEAN ELEMENTS 

REQUIRED UNITS - ALL ANGLES IN DEGREES, SEH1-MAJ0R AXIS IN KItOMETERS 

111A3.08A0 SEMI-MAJCR AXIS-KILOMETERS 

0.23653051 ECCENTRICITY 

46.A977S6 INCLINATION -OEGREES 

220.626879 R.A. ASC. NODE -OEGREES 

1 G6.3666A8 ARC. OF PERIGEE-DEGREES 

3 £9.950966 MEAN ANOMALY -OEGREES 

WORLD MAP CALCULATIONS - SI ART AND ENO TIMES 

1/15/1964 START CATE 

20 0 0. START T JMfc-LT2 

120.000 TIME INCREMENT- SECONDS 

1/16/1964 fcNC CATE 

20 0 0. ENC TIME-UT2 

LCCK ANCLE CILCL L AT ICNS - START AND END TIMES 

1/15/1964 START CAIc 

10 0 0. START T1ME-LT2 

120.000 TIME INCMfcMENT-SECONOS 

1/16/1964 ENC CATE 

10 0 0. ENC TIME-UT2 
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SAUDI PACKS ORBITAL CCMPUT ING SYSTEM 


RELAY TEST 12 STATIONS 

QUANTITIES COMPUTED FROM INPUT 

- 1/19/1969 EPCCF OATE OF PARAMETERS V. 

21 57 -0. EPCCF TIME OF PARAMETER S“UT2. 

PCSITICN ANC VELOCITY VECTORS - GEOCENTRIC EQUATORIAL IN C RTIAL 

5996.52051 XI - KILOMETERS 0.59013103 XI - VANGUARD UNITS 

5956.32159 X2 - KILOMETERS 0.59009985 X2 - VANGUARO UNITS 

-682.69296 X3 - KILOMETERS -0.10703221 X3 - VANGUARD UNITS 

-9.02792885 VX1 - KM/SEC -0.50951199 VX1 - VAN r UARO UNITS* 

3.9060737E VX2 - KM/SEC • C.93085C13 VX2 - VANGUARD UNITS 

-5.98969036 VX3 - KM/SEC -0.69991018 VX3 - VANGUARD UNITS 

85C7. 65590 R - KILOMETERS 1,33382532 R - VANGUARD UNITS 

7 .6 132582* V - KM/SEC 0.96303699 V - VANGUARO UNITS 

TRUNCATICN FACTORS USEC IN' COMPUTING 8R0LKER 
MEAN ELEMENTS FFCM OSCULAIINC ELEMENTS 

5.0E-09 SCM I-MAJCR AXIS - KILOMETERS 

5.06-06 ECCENTRICITY 

5.0E-06 INCLINATION - DEGREES 

5.0E-06 R.A. ASC. NODE - DEGREES 

5.0E-06 ARC. OF PERIGEE - DEGREES 

5.0E-06 MEAN ANCMALY - DEGREES 

CRBITAL ELEMENTS 

OSCULATING ELEMENTS BROUhER MEAN ELEMENTS 

11150.8829 11193. 089C 

0.2370921* 0.23653C51 

96.509819 96.957756 

220.619191 22 0.626875 

186.266777 1S6. 366690 

0. 050050 359.95C958 

3.251290 PER IUC -HOURS 

155.0799 -MINUTES 

110.726969 MEAN MOTION -DEGREES /HO LR 

-1.092296 MOTION OF NODE - DEGRE6S/0AY 

1.085900 MOTION CF PERIGEE - DEGREE S/DAY 

hORLD MAP 

DATE UNIVERSAL TIME GE00ET1C COORDINATES 

MO/OY/YR H M SEC. LATI TUDE-DMS LONG I TUDb-D M S M E IGHT-KM. 


SEHI -MAJOR AXIS - KILOMETERS 
ECCENTRICITY ' 

INCLINATION - DEGREES 
R.A. ASC. NODE - DEGREES 
ARG. OF PERIGEE - DEGREES 
MEAN ANOMALY - OEGREES 


1/15/69 20 C C.COC 95 

1/15/69 20 2 C.COC 96 

1/15/69 20 * O.COO 96 

1/15/69 20 f C.CCC 96 

1/15/69 20 E C.COC 96 

1/15/69 20 ir C.CCC 95 

1/15/69 2C 12 O.CCO 99 

1/15/69 20 19 C.CCC 93 

1/15/69 20 16 O.COC 91 

1/15/69 20 16 C.COO 35 

1/15/69 20 2C O.CCC 37 

1/15/69 2C 22 C.COG 39 

1/15/69 20 2* C.COC 21 

1/15/69 20 26 C.COC 26 

1/15/69 20 26 C.CCO .<5 

1/15/69 2C 3C C.CCC 21 

1/15/69 20 32 C.COC 17 

1/15/69 2C 39 i .COO 13 

1/15/69 2C 36 O.CCO 5 

1/15/69 20 36 O.CCC 9 

1/15/69 20 9C C.CCC C 

1/15/69 20 92 C.COC -9 

1/15/69 2C 9* O.COO -6 

1/15/69 20 96 O.COC -13 

1/15/69 20 9 6 C.COC -17 

1/15/69 20 5C C.COG -21 

1/15/69 20 52 G .00 3 -25 

1/15/69 20 5* O.CCC -25 

1/15/69 20 56 3.CC0 -32 

1/15/69 2C 56 C.CCO -35 

1/15/69 21 C O.COO -38 

1/15/69 21 2 O.COC -9C 

1/15/69 21 9 C.COO -92 

1/15/69 21 6 C.COC -99 


58 3.99 -116 91 5.76 9063.769 

23 99.15 -112 3 29.31 9699.303 

35 36.75 -107 12 31. 3C 9522.967 

32 5.e9 -102 10 21.52 9398.900 

11 93.C8 -96 59 93.31 9179.323 

33 11.96 -91 93 98.92 3999.537 

35 30.19 -36 26 5.96 3025.929 

17 57.62 -81 9 58.17 3652.979 

9C 12.79 -75 58 33.93 3983.259 

92 15.16 -7C 59 25.9C 3317.937 

29 23.77 -65 59 27.99 3156.770 

97 19.79 -61 19 99.10 3002.603 

51 39.51 -5o 90 58.13 2856.350 

38 93.12 -52 17 95.57 2719.980 

9 93.10 -98 9 32.26 2593.992 

26 9.20 -99 0 15.90 2979.878 

29 93. CC -90 3 36.58 2380.086 

22 18,25 -36 13 2.11 2295.973 

6 0.61 -32 26 51.37 2227.256 

93 7.11 -28 93 16.82 2176.962 

16 5.C5 -25 C 26.26 2193.883 

12 3C.38 -21 16 23.33 2130.039 

39 57.52 -17 29 9.25 2135.135 

3 31.88 -13 36 92.88 2159.090 

2C 28.68 -9 37 2.52 2201.503 

28 5.68 -5 28 8.20 2261.690 

23 95.58 -1 8 5.78 2338. 7L8 

9 58.28 3 29 97.29 2931.998 

25 23.01 8 11 52.97 2538.579 

39 5G.78 13 19 2.16 2658.705 

19 27-96 18 31 21.17 2790.355 

91 37.96 29 2 58.79 2932.092 

9C 11.25 29 96 S6.29 3082.288 

19 25.80 35 90 9.06 3239.665 
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1/15/6* 

21 

a 

0.000 , . 

-* 5 24-14*38 41..3 8 .5., 97. _ 

3*02.803 

1/15/64 

21 

1C 

O.COQ 

-46 . 10 6»JU 

-JUL3.6 1S.2.4. . 

.3570, *16 

1/1546* 

21 

12 

0,000 

-*6 33L. .IiJiit 53_2.?_IS.,83_._ 

3141.303 

1/15/6* 

21 

1* 

0 .coo 

-*6 3* .5.1, it? — 

...53 1.2. .12,32.. . 

3914,355 

1/15/6* 

21 

16 

o.coc 

- * 6 7_.2J.JU ..... A* *1„ iZ-J L4 . 

.4088,556 

1/15/6* 

21 

IE 

0.000 

7*5. *2.59*20 69_52.53 t M_ . 

426 2 ,9.8 3 

1/15/6* 

21 

2C 

0,000 

.-** 53. 4.9 *54— 

—73.45 26,93 

443 6, .7 98 

1/15/6* 

21 

22 

o.coo 

-.*3 52-12,25 . 

— 12-1.7 .5A.16 

4609., 247 

1/15/6* 

21 

2* 

o.coc 

-.*2 40 „1 2, 84 83_30 28,52... 

47.79.653 

1/15/6* 

21 

26 

0.000 

-*1 19 43.,.93— . 

..Jt 23 3*. 53 

4247.410 

1/15/6* 

21 

2E 

0.000 

-39 52. 23,51— 

. .90 58 .20.69 

5111.977 

1/15/6* 

21 

3C 

0.000 

-38 19 36,37 

..9* 16 .6,06 

5272.871 

1/15/6* 

21 

32 

0.000 

-36 *2 .33,aa._ 

97 18 U.56 

5429.663 

1/15/6* 

21 

3* 

0.000 

-35 2 13, 38 

100 6 18..9* 

5581.97* 

1/15/6* 

21 

36 

0.000 

-33 19 23,.m... 

_102 *1 37.30 

5729. *65 



LCCAL STAT ICN 

PREDICTIONS jjgl 

.. _ 



STATICN 

LONCITUCC 

LATITUDE. _ 

_HEJ£HL IHEJERS). 

CORNU T 

-75 

C 

c. 

*0 

C 

C. 


COHAN t 

-60 

*C 

0. 

*4 

5* 

C. .. 

.. _ .. -3.8. OC 

COHHIl 

-5 

1C 

2S.CCC 

5C 

2 

58.000 

3 50. .00 

.COPGEF 

10 

c 

0. 

51 

0 

0, 

50,00 

COPTEl 

13 

26 

5.000 

*1 

5E 

*1.CCC 

_ . 2168. 6C 

COHRiC 

-*3 

22 

7.000 

-22 

57 

9. COO 

. o. 

COPNUT 

-75 

C 

c. 

*0 

0 

0. 

o. 

COP and - 

-68 

40 

c • 

44 

5* 

0. „ 

'38. CO 

COPHIL 

-5 

10 

29.000 

5C 

2 

58.00C ' 

. 350.03 

COPNUT 

-75 

c 

0. 

*C 

C 

0. 

0. 

COPANC 

-68 

40 

C. 

** 

5* 

0. 

„ . 38.00 

COPHIL 

-5 

1C 

2S.CC0 

50 

2 

58. OCO 

. _ 350.00 


NO STATICN PRINT OUT IF -- 

1. ELEVAUCN IS LESS THAN 

2. RAI'GE IS CREATER THAN 

3. RADAR ANGLE IS CREATER THAN 

OR LESS THAN 


SPIN AXIS CGCFCINATES ARE 


0 DEGREES 

lCCCCCO. K1LOME.TERS 
90.C DEGREES 
C. DEGREES 


178. C DEGREES RIGHT ASC c NSION 
25. C DEGREES DECLINATION 


LOCAL STATICN PFECICUCHS 
PIJIUAL VISIBILITY 


DATE UNIVEFSAL TIPE 

PO/DY/YR H P SEC. 
1/15/6* 1C 0 C.OCC 
1/15/6* 10 2 C.CCO 

1/15/6* 10 * C.OCC 

1/15/6* 10 6 C.OCC 

1/15/6* 1C R C.OCC 
1/15/6* 10 10 C.OCC 


NUT AND HIL GER TEL RIO NOT AND HIL NUT AND HIL 


1/15/6* 11 

1/15/6* 11 

1/15/6* 11 

1/15/6* IX 
1/15/6* 12 

1/15/6* 12 

1/15/6* 12 

1/15/6* 12 

1/15/6* 12 

1/15/6* 12 

1/15/6* 12 

1/15/6* 12 

1/15/6* 12 

1/15/6* 12 

1/15/6* 12 

1/15/6* 12 

1/15/6* 12 

1/15/6* 12 

1/15/6* 12 

1/15/6* 12 

1/15/6* 12 

1/15/6* 12 

1/15/6* 12 


52 O.OCO 
5* C.CCC 
56 b.CCC 
58 C.CCO 
C C.CCO 

2 C.CCC 
* 0 .000 
6 C.CCO 

3 C.000 
10 C.CCO 
12 C.CCO 

1* c -oco 

16 C.CCO 
18 C-COO 
20 ?.CCO 
22 C.CCO 
2* C.CCO 
26 C.OCC 
28 C .SCO 
30 C.CCO 
32 C.CCO 
3* C-CCC 
36 C.CCO 
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1/15/64 12 38 

1/15/64 12 40 

1/15/64 12 42 

1/15/64 12 44 

1/15/64 12 46 

1/15/64 12 48 

1/15/64 12 50 

1/15/64 12 52 

1/15/64 12 54 


0.000 

0.000 

0.000 

c.oco 

C.000 

o.ooo 

C.000 

0.000 

C.CCO 


LOCAL STATION PRECICTICNS 


oAre 

HO/DY/YR 
1/15/64 
1/15/64 
1/15/64 
1/15/64 
1/15/64 
1/15/64 
1/15/64 
1/15/64 
1/15/64 
1/15/64 
1/15/64 
1/15/64 
1/15/64 
1/15/64 
1/15/64 
1/15/64 
1/15/64 
1/15 /64 
1/15/64 
1/15/64 
1/15/64 
1/15/64 


UNIVERSAL TIME 

m k sec. 

12 56 O.OCO 

12 58 C.OCO 

13 0 0,000 

13 2 C.COO 

13 4 G .000 

13 6 C.OCO 

13 3 O.OGO 

13 10 C.COO 
13 It 0.000 
13 14 C.000 

13 16 C.OCO 
13 10 C.OCO 
13 20 C.OCO 
13 22 C.CCC 
13 24 O.CC0 
13 2* C.OCO 
13 28 C.OCO 
13 30 C-OCC 
13 32 C.OCO 
13 34 0 .OCG 

13 36 0.000 

13 38 u.OCO 


NUF AND HIL . GER TCt 


RIO f»»T AND HI.L NUT 


1/15/64 15 

1/15/64 15 

1/15/64 15 

1/15/64 15 

1/15/64 15 

1/15/64 15 

1/15/64 15 

1/15/64 16 

1/15/64 16 

1/15/64 16 

1/15/64 16 

1/15/64 16 

1/15/64 16 

1/15/64 16 

1/15/64 16 

1/15/64 16 

1/15/64 16 


46 C.CCO 
48 C.OCO 
'50 C.OCO 
52 C.CtO 
54 C.OCO 
56 O.CCC 
58 S.CCO 
0 C.OCO 
2 C -CCO 
4 3.CCC 
6 C.OCO 

a c.cco 

1C C .CCO 
12 C.CCC 
14 C.CCO 
16 C.CCO 
1? c.oco 


m 



TAPE A6 

LOCAL STATION PREDICTIONS 


local" station predictions 

HUTUAA VISIBILITY 


DATE 

MQ/.DY7YR 

VT2 
H_ M 

STATION 

RANGE 

IKM) 

. A2 EL RADAR . 

(,D££L_U2EG1_AMGLE 1BEG1 

L/ 15/64 

10 

0 

COHHJL 

COHCER 

COMTEL 

COHhIL 

COMHL 

6356.7 

6368.5 

6144,1 

6356.7 

6356.7 

149.6,_62.6 $-4.-3 

201 , 7 JiZ±2 75,7 

2*5.3. J2^2 69.0 

149*6 6^6. 84, 3 

14.9^6-6^6 04-3 

1/15/64 

10 

2 

COHHIL 

COHCER 

COHTEL 

COHhIL 

COHhIL 

6214.4 

6141.3 
5931.2 

6214.4 
6214.4 

138,5.^2^6 . 

193.8^5,5.. 
246.3__77.3-. 
136.5-62*6- 
138.5 62.6. 

87, 9 

„ .79, 0 
. ‘72.3 
, 87,9. 
87.9 

1/15/64 

10 

4 

COHCER 

COHTEL 

5931.5 

5736.9 

182.7 

248.2 

68.4 . 
82,7. 

. 82,6 
75.9 

1/15/64 

10 

6 

COHCER 

COHTEL 

5743.3 

5565.1 

167.9 

261.2 

70.3 

88.4 

66.6 
79. B 

1/15/64 

■ 10 

8 

COHTEL 

5420.3 

SS.9 

85.4 

84.0 

1/15/64 

10 

10 

COHTEL 

5307.1 

63.6 

79.0 

88.5 

1/15/64 

11 

52 

COHRIC 

10353.6 

244.9 

0.4 

55.9 

1/15/64 

11 

54 

COHPIC 

1C2S5.1 

247.3 

2.5 

53.0 

1/15/64 

11 

56 

CCMPIC 

10225.0 

249.8 

4.5 

50. 2 

1/15/64 

11 

58 

COHRIC 

1C 173.0 

252.3 

6.4 

47.4 

1/15/64 

12 

0 

COHR 10 

10128.8 

254.5 

8.2 

44.7 

1/15/64 

12 

2 

COHR IC 

10092.0 

257.5 

9.9 

42.0 

1/15/64 

12 

4 

COHR 10 

10062.2 

260.2 

11.5 

39.5 

1/15/64 

12 

6 

COHR IC 

10038.9 

262.9 

13.0 

37.0 

1/15/64 

12 

8 

CCHNUI 
COMR I0‘ 
CCHNUT 
CCHMJT 

11465.3 
10021. B 
11465.3 
11465.3 

201.0 
265. 7 
201.0 
2C1.0 

P*l 

14.3 

0.1 

0.1 

71.4 
34. 6 
71.4 
71.4 
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